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Projetado espectficamente para microcomputadores 

de uso pessoalou comercial 

Duto eletrificado com tomadas, liltro e circuitos de 

seguranga 

Gaveteiro-arquivo dimensionado para diskettes e 

fitas cassete 

Dimensoes: 

1,30 X 0,65 X 0,65 m e 1,90 x 0,75 x 0.65 m 

Acabamento em madeira natural, laminado ou 

pjntura acrilica. 

Para maiores informacoes, solJcite tolheto. 



Al. dos Arapan^s, S41 - CEP 04524 
Tel.: (Oil) 542-1917 - SSo Paulo ■ Brasil 
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A economia brasilei'ra se assemeiha a 
uma escada rolante que esti descendo. Se 
voci nela ficar parado, fatalmente acabari 
descendo junto. O setor ligado a informati- 
ca. por^m esta percorrendo esta escada em 
sentido contrario e oonsegue galgar seus de- 
graus tao rapidamente que est^ subindo 
apesar da crise e da recessSo. 

Neste m4s de outubro realUa-se a III Fei- 
ra tnternacionai da tnformatica no Parque 
Anhembi em Sao Paulo. O volume de expo- 
sitores e panidpantes mostra bem a impor- 
tancia deste setor da economia brasileira, 

Deve-se destacar, entretanto que esta 
pujanfa nao 4 devida aos grandes sistemas, 
drea dominada pelos "experts" e pelos 
pomposos e retumbantes executives das 
centrals de processamento de dados, fla se 
deve mais ao pequeno empresSrio ou pro- 
fissfonal que se utiliia de urn mini ou mi- 
crocomputador: se deve a vocS, usuario, 
que tern uma pequena (e barata\) maravi- 
Iha dentro de casa. VocS deve se orgulhar 
distof 

Todo este otimismo, porSm deve gerar 
duas cautelas: em primeiro lugar devemos 
lutar com tadas as for(:as para que esta in- 
dustria brasileira continue brasileira^ Em 
segundo lugar devemos nos acautelar con- 
tra OS picaretas atraidos pelo lucro ficil e 
peto modismo do mercado. Para isso a nos- 
S3 revista cpntinuari informando, analisan- 
do e principalmente ensinando ao usuario 
como tirar o maximo praveito de seu pe- 
queno grande computador. Como exempto 
disto, estamos publicando neste numero a 
primeira parte de um importante artigo so- 
bre direitos autorais de software. A final, 
muitos de nossos leitores sao "pronsumido- 
res", ou se/3, consumidores que t3mb4m 
produzem em ni'vel artesanal ouatSprofis- 
siona/, e esta 4 uma atividade que pode e 
deve ser protegida contra piratas e tuba- 
roes I 
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CARTAS DOS 
LEITORES 



Gostaria de parabenizd-los pela excelente id^ia de 
conglomerar os usudrios do TK82C em torno de uma 
publicaipao. 

Aproveito a oportunidade para solicitaro numero ze- 
ro da Microhobby e assim poder completar a colegao, 
desde o infcio. A forma de pagamento deverd ser infor- 
mada pelos senhores, para que eu possa receber o nume- 
ro zero. 

Uma vez que a revista tern grande penetra<;fo, gostaria 
de solicitar-lhes, se possi'vel, apublicapao ou o envio pa- 
ra mim, do esquema eletronico do TK-82C, pais tenho 
vontade de conhece-lo mais a fundo tanto em hardware 
quanta em software e passar assim, a desenvolver alguns 
USDS diferentes para o micro, pn'ncipaimente na irea de 
controle. 

Contando com a sua compreensao, agradeoo a aten- 
Q80 dispensada. 

Luis Henrique P. Fonseca - Salvador, BA. 

Caro Luiz Henrique, 

Infelizmente o numero Zero de nossa revista esti es- 
gotado.Como paliativo, por4m, voce pode tentar obter, 
de algum amigo, uma cdpia "Xerox" dela. Em ultimo 
caso, escreva-nos novamente e nds the mandaremos uma 
"xerox " da mesma. ^ 



Faz pouco mais de tres meses, procure! comprar uma 
m^quina de jogos-xadrez e nao achei no mercado. Numa 
das lojas que visitei, me ofereceram urn TK-82, dizendo 
que "tamb^m jogava xadrez". preqo do mesmo era 
razo^vel e eu o comprei. 

Depois de constatar que realmente o computador jo- 
gava xadrez, comecei a pensar: "uma maquina capaz de 
fazer aquilo, deveria ser capaz, tamb^m de fazer virtual- 
mente qualquer coisa". Passei a estudar o manual, que a 
princi'pio me pareceu escrito em grego, interessando-me 
cada vez mais pelo computador. Aos poucos, fui me sen- 
tindo capaz de desenvolver urn programinha, para con- 
trole de nosso orgamento domestico — e nao 6quedeu 
certo?! 

Logo descobri, por^m, que a capacidade da maquina 
nSo e ilimitada. Nao 6 coisa muito dlf I'cil botar, na me- 
mdria, um programa. Isto fez aumentar minha admira- 
gao pelo programa de xadrez, E tamb^m minha curiosi- 
dade. Quis saber mais a respeito daquela pequena mara- 
vilha. E minha curiosidade levou-me a ler, com mais 
atengao, a revista numero Zero da Microhobby. Gostei 
tanto da revista que resolvi fazer a sua asstnatura. Os 
dois primeiros numeros confirmaram a minha expecta- 
tiva. A medida que vou adquirindo novos conhecimen- 




tos, vejo expandir-se o horizonte das possibilidades que 
a computapSo oferece. 

Enfim: "descobri uma nova atividade extraordinaria- 
mente interessante, que tern, a meu ver, um Cinico defei- 
to: nsio me deixa mais tempo para o xadrez". 

Junto com o numero 2, recebi a fita brinde, que por 
algum erro involuntario, de sua parte, veio sem o progra- 
ma "Simulador de Voo". Estou remetendo-o para, se 
possf'vel, troc^-la. E, se for possi'vel escolher, eu prefiro 
que me enviem o apagador de fitas. Aproveitando o lado 
2 da fita, que estava "vazio", gravei nele, uma possi'vel 
soluqao do quebra-cabe(;a "Verdadeiro ou Falso", que 
deve ser carregado com LOAD "V/F". Mesmo que nao 
seja escolhtdo para publica<?ao, gostaria que fosse co- 
mentado por alguem que realmente saiba programapao, 
para poder corrigir-me e para que eu possa aprender. 

Estou enviando, tamb^m, uma fita do "TK-MAN" 
que nao quer entrar. Gostaria de saber se 6 defeito de 
meu gravador ou da fita. 

E tenho ainda mats uma pergunta: 
1.0 manual diz que PAUSE deve ser seguida de 
POKE 16437,255; mas nos programas publicados na Re 
vista, POKE esta ar>tes de PAUSE. £ o mesmo? 
2. Se eu entendi direito, no programa de Alta Resolu- 
gao (nP 2} hd uma linha REM que fornece instrugoes em 
linguagem de maquina. As linhas REM nao sSo, ent§o 
ignoradas? Existe o risco de, ao se utilizar em REM (que 
pode ser "enfeitado" com alguns caracteres gr^ficos) 
estas linhas fornecerem alguma instrugao nao desejada? 

Grato pela atengao que voces me dispensaremeat^ a 
proximal 

Alejandro Luis Cobos - Sao Paulo, Capital. 

Prezado Alejandro, 

Grande parte de sua estoria i comum a muitos usu4- 
rios do TK (entre os quais nds nos inctufmos). Com rela- 
^ao as fitas, informamo-Ihe que a do "Simulador de 
Voo" foi substituida por outra testadaeja foi providen- 
ciado o seu envio para voc§. 

A fita do "TK-MAN" foi remetida a MICROSOFT pa- 
ra ser testada. Oportunamente voce receber^ noti'cias 
dela. 

■ Sua solugSo do Quebra-Cabepa ainda esti sendo estu- 
dada por nossos programadores. 

A seguir, damos a resposta de sua primeira pergunta. 
A resposta da sua segunda pergunta, foi trans ferida para 
aseQao "DESGRILANDO". 

J. A linha POKE 16437,255 apds uma PAUSE, s6 i ne- 
cess4ria nas m^quinas mais antigas (devido a seu peque- 
no inconveniente na ROM}. As m^quinas mais novas dis- 
pensam-na. q 
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Prezados Senhores, 

Antes de mais nada, meus parabens pela excelente re- 
vista; informolhes que a "Microhobby" 6 a revista que 
sempre quis ter em maos, agora nao falta mais nada. 

que quero saber e o seguinte; "A questao de uns 
quatro meses, adquiri, pela Microdigital, a fita com os 
programas "Demolidor e Marciano". E sem pre as usei 
sem probiemas. 

So que de uns dias para ca, o programs "Marciano" 
n3o entra no Micro apos o LOAD. Ao inves de acabar 
com 0/0 ele acaba com o cursor L. 

Eu fiz exatamente o que os itens 1 e 2 falavam na res- 
posta para o Sergio no numero anterior, mas nao obtive 
resultado. Logo, eu pergunto: "Seu eu enviar para a 
Microdigital - explicando o problema, eles eventual- 
mente me mandam outra fita?". 

E por Liltimo, o TK-82C n§o possue a fungao "DEF 
FNR(x)" — o que devo fazer?". 

Atenciosamente, 

Amauri P. Luch — TaubatS, SP. 

Cam Amauri, 

Cremos que a gravaqSo em fita tenha sido danificada 
acidentalmente por voce (talvez por deixa-la prdxima a 
televisores ou transformadores e outros aparelhos do ti- 
po). Neste caso infelizmente, a fita nao the sera substi- 
tufda. De qualquer modo, esperando que estejamos er- 
rados, vale a pen a voce ten tar en v id-la para verificacao. 
Com relapao a garantia das fitas comercializadas, comen- 



tamos a respeito, sobre uma inovaQao introduzida pela 
Multisoft na set^ao Fita do Mes. 

Voce pergunta ainda, como traduzir para o BASIC 
TK, a instrugao DEF FNR fx). A seguir, publicamos, pa- 
ra voce, uma possi'vel so/t/pao.' 

Suponha que as linhas a serem traduzidas sejam as se- 
guintes: 

1004 DEF FNR(x) = LN (INT<x + LNxH 
15M LETK= FNR 00) 

Procedemos a traduQao seguindo os tres passos 
adiante: 

1. Colocamos o segundo membra da igualdade da linha 
1000 numa STRING. 

1000 LET FS = "LN (INT (X + LN (xH)" . 

2. Atribui'mos a variivel X o valor 10, que 4 o argumen- 
to da fungao FNR na linha 1500. 

1499 LET X = Iff 



3. Atribui'mos a variSvel K, o valor fVAL) da STRING 
FS. 

1500 LETK = VAL(F$) 
Outras solupoes podem ser utilizadas. Como exerct- 



cio, tente "bolar" uma. 



O 
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O QUE FOI A FEIRA DA INFORMATICA E 
CONGRESSO? - Como esteve a Microi^abby, 

PROGRAMAS DO LEITOR: 

Jogos inteiigentes ou Inteligencia Artificial 

A melhor maneira de escrever programas de jogos 

inteiigentes em BASIC. 

Soiuqao de Equacao Algebricas e Transcedentes — 

Atraves do m^todo "de Bolzano ou de Bissecgao". 

PROGRAMAS DO MES: 

Burgo — programa destaque na edigao nP 6. 

MUITAS PICAS E INFORMAQOES 

PEQUENOS ANONCIOS - Envie seu pequeno anuncio 
para ser publtcado gratuitamente. 

POR DENTRO DO APPLE: 

Velocidade e Economia 
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• Trecho da Carta de nosso leltor Alejandro Luis Co bos, publi- 
cada na Mfab CARTAS DE NOSSOS LEITORES. neste numero: 

. . . Se eu entendi direito, no programa de Alta Resolu- 
gao (nP 2) ha uma linha REM que fornece instrugoesem 
linguagem de m^quina. As linhas REM nio sao, entao 
ignoradas? Existe o risco de, ao se utilizar um REM (que 
pode ser "enfeitado" com algum caractere grifico}, estas 
fornecerem alguma instrupao ngo desejada? 

Aqui est^ a sua resposta Alejandro: 

As l/nhas REM sao ignoradas pelo micro, quando efe 
as le em BASIC {dessa forma, nao M perigo em "enfeiti- 
las" com caracteres graficos). Note que 4 justamente o 
fato de serem ignoradas, que as tornam boas lugares pa- 
ra guardarmos programas em linguagens de m^uina. 
Tais programas s6 serao lidos pelo TK se o irrstruirmos 
devidamente, atrav^s da funcao USR, 

Para compreender melhor o que dissemos acima, digi- 
te o programa listado a seguir, tendo o maxima cuidado 
para nao errar ao digitar os caracteres apos o REM da li- 
nha J. Para nao haver duvidas, consulte a TABELA 1, 
onde e/es estao mostrados em seqiJincia. 



EH 



?C~L 



Figura 1 



1 REM EjeRNOT."- : 5? RETURN 
»?VS+ POKE ? !_I5T TftH 
S POKE 16?SS,1S6 
3_PaKE 16Sa4 , iV8 
ASPOKE ieS2Q , 1 XS 

Ao introduzir os caracteres RETURN, POKE e LIST 

proceda digitando antes SHIFT THEN e depois apague 

OS THBN's, movendo o cursor para tras usando para is- 

so, RUBOUT. 



ORDEH 

1 

3 
4- 
5 

e 

7 
8 

10 
11 

12 
13 
14- 
IS 
IS 
17 
18 
19 
£0 
21 
SS 
23 



OBSERUftCftO 

(SHlfT 5PhCE> 
CrU.NC, RftND) 
NLfMERO 7 
iSRSPHICS < >.i 
i SHIFT Ji 
{ SHIFT Z.t 

i SHIFT 
( THEN 
(SHIFT 
LETRR C- 
IGRRF, SHIFT 
(FLfNCTION K> 



C-J 
RETURM 



i: GRRF , 
{SHIFT 

NUHERO 
? SHIFT 

NUHERO 
( THEN 
tSHIFT 
f THEN 



SRRCE> 

C-i 

7 

Lt> 

4. 

POKE .1 

I> 

LIST 



(FUNCTION E> 



CRRftCTERE 

E 
£ 
RNC' 



5 
RETURN 

c 

LEN 



POKE 
I 

LIST 
TRN 

Figura 2 
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ATENCAO: Em hipdtese alguma traga a linha 1 REM 
para baixo com o comando EDIT. Caso voce ji tenha 
feito isso, digits NEW e comece novamente. 

Ap6s haver introduzido a linha 4, digite RUN e NEW 
LINE. Quando o @/4 surgir na tela, digite LIST e NEW 
LINE. A linha 1 REM . . . deve modificar-se ligeiramente 
e a listagem deve ser a seguinte: 



1 REM E£RND7^- 
LXST TRN 

a POKE tesaa,ias 

3 POKE 1&524.,2.1S 
4- POKE 16Sa3.X1^3 



f^d. POKE t 



Figura 3 



Se tudo correu bem at4 aqui, complete o programa 
como mostrado adiante e ponha-o para radar: 



X 


REM E£RNI>-7^-: S» 


?"7»4. 


LIST 


TRN 




2 


POKE 16522,1=6 




3 


POKE issa4.,iie 




4- 


POKE 16529^113 




le 


FOR 1=0 TO aS5 




2Q 


PRINT CHR* I; 




30 


NEXT r 




4.Q 


FOR U=S TO 4.e 




50 


LET DESGRILRNDD 


=USR 


60 


FOR K=0 TO 10 




ve 


NEXT K 




60 


NEXT tJ 




se 


PRINT RT 20,14.; 


"FIM* 



POKE 



ie5X4. 

Figura 4 

Observe atentamente o que ocorre na tela. Voc§digi- 
tou RUN e NEW LINE e a micro come^ou a ler o pro- 
grama linha por linha, em BASIC. Vamos analisar como 
ele le cada uma delasi 

TABELA II 



LINHA 



1 
2 
3 
4 
10 3 30 

40 



70 



AqAO DO TK 



I G NOR A 

Coloca o numaro 126 nobylB 16S22 
Coloct o niimsro 118 na byt« 16524 
Coloca « niimero 119 no byte 16529 
Imprime a conjunto da carBctares do TK atrav*! d« 
um "Loopinfl fOR-NEXT" 
Inicia »m "Looping F0R-NEXT"dB 41 uolt«*. 
Ele 14 «SH linha norinalmanti) att ancontrar a funcao 
USR, cujo argumento i o numaro 16514. Quando a 
•nconira, para da Isr o programa em BASIC • com^^a 
a Mlo am LINGUAGEM de MAOUINA. a partir do 
byte 16514. Acontecs qua. juntamente rwsse byta. en 
contraie o c6digo do primeiro carscter ap6s o REM 
da linha 1 (c6di9o do caractar E = 42), ProtMsus 
lendo OS bytes sucetsivos I16S15, 16516. etc.t em lin- 
guagem de miquina, ati encontrar, em um dales, o cA- 
digo 201 correspond en 18 ao earacter TAN. Ap6s W-lo, 

micro passa novamente a operar «m BASIC, lendo a 
linha laguinta ^uela em que ancontrou a fun^Jo USR 

1 linha 66). Q earacter TAN lido em linguagem de mi- 
quina, faz o computador voltar ao BASIC. 

Essa rotina am linguagem de miquina, t a retpontivol 
pela inversao doi caracteres na tela. 
Fachs o "Looping". 
Apresenta "FIM" na tela. 



Adiante, voce pode observer as aspectos da tela apos 
a linha 30 e 70 serem lidas. 

iS6789P.BCDEFGHI^'Kl_KNQPSRSTL,-UWXVS 
RNDINKEYSPI'?'?7-T"?'?T"?TT'?T7'? '?'?'? '?'?'•'? 

7- 'J T- 7- 7- 7^ -7^ -7 -7 7- -7- -T -T- -T- 7- -T- -T- -T- -? •;■ -r -> •> -^ -!■ -> -T- •> -T- -t- "> -r 
'?"?'?'?7', 

' ""r-HT TRe TCaC'El U«t_ l-^H SX 
N CG5 T.qH RSN ftCS fITN J_^E EXP X?rr 

SQR SGW Res PEHR USS STRf CHPr$ 
NOT ** OR RND < = > = e > THEN TO 3TE 
P LPRIhFT t_I_IST STOP ErLOi^ FftST P<E 
U SCROLL CDirr EMM REM FOR GOTO G 
OSUB INPUT LORD LIST LET PRUSE li 
EXT POKE PRX^^^ PLOT RUN 5W^-E R«K 
D IF CLS UHPLOT CLEfiR RETURN CQP 

"^ Figura 5 




,elS34-5eV39ftBC.£>EFGHXJKi_HWO£^€>R 

stuuuxy: 




Figura 6 
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mais recente tangamento da MULTISOFT para o 
seu TK (TK82. TK83 e TK85). 
Emocionante aventura onde vocS conduzirS o 
sapo desde o ponto cte partida, at^ uma casa vazia. 

Voc& deverd cruzar a auto-estrada, sem ser 

atropelado e, em seguida, atravessaf um caudaloso 

rio pulando sobre tartarugas e troncos que passam tlutuando. 

Para adquiri-lo e entrar para a gateria de recordes do 

pulo do sapo basta enviar carta com seu norne e 

eridereijos completos, anexando cheque de Cr$ 

5.690,00, nominal d MULTISOFT INFORMATICA LTDA. ■ 

Cxa. Postal 54,121 - CEP 01296 - Sio Paulo ■ SP 



r" 



OSH-OFT 



INFORMATICA LTDA.V 






• Tento psrticipar desta revista expondo algumas duvi- 
das que tenho. Trata-se da subrotina da ROM do 
TK-82C, a qual e chamada pela instru^ao FF (RST 38). 
Meu TK mostra a seguinte sequencia de instrucoes a par- 
ti r do endereco 0038H : 

ODC24500E105C8CBD9ED4FFBE9D1CB18FB. . . 

Apos decrementar "C", a rotina salta para o enderego 
0045 somente se a condi(;;ao for "Nao Zero", Entao, que 
sentido tem a instrugao do enderego O046H (C8-Ret Z) 
apos a instruipao D1 (POP DE} se, de acordo com varios 
autores, a instrugao "POD DE" nao altera flags? Haverd 
talvez atguma outra parte da ROM que "chame" ou que 
se "desvie" para o enderepo 0045H? 

Outra coisa: - a instrugao D1 nesta rotina tem outrs 
fungao que nao a de simplesmente retirar (eliminando) 
o enderego do topo da pilha (stack)? 

E possi'vel explicar, mesmo que resumidamente, o 
funcionamento do registro "R" nesta rotina? E como 
ocorre o chamamento automatico desta sub-rotina du- 
rante o processamento do display? 

Ainda sobre a ROM do TK, na rotina referents a gra- 
vagao de programas encontramos assegulntes instrupoes 
a partir do enderego 0352H: 



DB FE-IN A, (FE) 



D3FF-OUT(FF),A 



Que efeito tem a instrugao OUT logo ap6s a instrugao 
IN, no caso acima? E a porta FE, refere-se ao teclado? 
Quais as portas de entrada e de sai'da no TK? 
JOS£ BIS/0 LI SOBRINHO - Sao Paulo, SP. 



Prezado Josi, 

A instrucSo POP DE nao altera as flags, e nem deve\ 
O RET Z baseia-se no resu/tado das flags geradas por ins- 
trucoes anteriores ao POP DE. Geralmente, as unicas ins- 
truqoes que afetam as flags converrientemente sao as ins- 
trucoes aritmeticas e as logicas (al4m, S claro, da instru- 
gao CP). Com relaQao as outras duvidas, por exigirem 
respostas razoavelmente extensas, sugerimos a leitura 
dos iivros "Introdugao a Linguagem de Maquina para o 
TK" - ASSEMBLY Z80 - Vol. I e II ~ Flavio Rossini 
(Editora Moderna e Micromega). O volume I estd sendo 
langado (na Feira da Inform^tica) e a volume II ainda 
nao tem data prevista de langamento. 

Infelizmente a maior parte das respostas as suas per- 
guntas encontra-se no volume II. 
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CALEIDOSCOPIO 



Para simutar o efeito de urn caleidoscopio na tela do 
TK, utilizem-se da regiao central da tela (24 x 24 posi- 
goes) dividindo-a em quatro partes. Numa das partes se- 
r^ gerado, conforme voces poderao observar, em posipao 
aleatdria, urn grupo de quatro caracteres iguais (tamb^m 
escoihidos alestoriamente), os quais devem aparecer 
imediatamente e simetricamente nas outras tres partes. 
Devido a velocidade requerida, utilizemos entSo, uma 
subrotina em ASSEMBLY - que ser^ chamada pelo pro- 
grama em BASIC — para colocarmos os caracteres na 
tela. 

Comecemos pela subrotina em ASSEMBLY. E!a utili- 
zard dois numeros gerados pelo BASIC para calcular, a 
partir do DFILE — posipao inicial da tela de TV na me- 
m6ria — onde colocar um caractere aleatorio no phmei- 
ro quarto da tela. Este caractere ser^ repetido por 4 ve- 
zes, em posigoes adjacentes e, a seguir, o mesmo grupo 
ser^ copiado simetricamente nos outros tres quartos da 
tela. Note que, ao tratar a tela de TV em linguagem de 
m^quina, nao existem linhas e colunas, mas sim posiQoes 
de memdria. Por isso, nao estranhe os numeros gerados 
pelo BASIC. 

Vamos entao apresentar a subrotina seguida por um 
programa em BASIC, o qual permits colocd-la no com- 
putador: 



CCDtGO 



2A0C40' 

ED4B 82 40' 

US' 

ED4B8440' 

ED42' 

CDC940' 

ED4B844f)' 

09' 

09' 

CDC9 40' 

21F802' 

ED4B8240' 



MEMdRIA 


MNEMONICO 


16514 


_ 


16515 


— 


16516 


_ 


16517 


— 


16518 


LDE, $ 


16520 


LDHL, (D-FILE) 


16523 


LDBC, (16514} 


16527 


ADDHL.BC 


16528 


LDBC, (16516] 


16532 


SBC HL, BC 


16534 


CALL TV4 


16537 


LDBC, (16516) 


16541 


ADDHL.BC 


16542 


ADDHL.BC 


16543 


CALLTV4 


16546 


LD HL, 758 


16549 


LDBC, (16514) 
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•ED42' 

'228240' 

'2A0C40' 

'ED4B8240' 

•09- 

'ED 488440' 

•ED42' 

'CDC940' 

'ED4B8440' 

'09' 

•09' 

'CDC940' 

'C9' 

*E5' 

'73' 

'23' 

•73' 

'01 2000' 

'09' 

73' 

'23' 

73' 

'ET 

'C9' 



OBS.: Na mem6rta 16519, $ represents o caractere que 
serS enviado pelo BASIC. Asroo/'t/enarfascalculadas pe 
lo BASIC, sao colocadas nas membrias de 16514 ate 
16517. 

Este programa tern 84 bytes (se incluirmos os dados) 
e ser^ colocado dentro de uma instrugao REM, que deve 
estar obrigatoriamente na linha 1. Assim, comecem a re- 
servar pelo menos 84 bytes de memoria na linha REM: 

000 eeea ee00S00eee008eaae0e€i0 



16553 


SBC HL, BC 


16555 


LD{16514J, HL 


16558 


LOHL, (D-FILE) 


16561 


LD BC, (16514) 


16565 


ADDHL,BC 


16566 


LDBC, (16516) 


16570 


SBCHL.BC 


16572 


CALL TV4 


16575 


LDBC, (16516) 


16579 


ADDHL.BC 


16580 


ADD HL,BC 


16581 


CALL TV4 


16584 


RET 


•• SUBROTINA TV4*' 


16585 


PUSH HL 


16586 


LD{HL),E 


16587 


INCHL 


16588 


LD(HL),E 


16589 


LDBC, 32 


16592 


ADD HL, BC 


16593 


LD(HL),E 


16594 


INC HL 


16595 


LD{HL),E 


16596 


POPHL 


16597 


RET 



(84 ou mais caractere! quaisquer) 



Figura 2 



Feito isto, apresentaremos um pequeno programa que 
Ihes possibilitarao colocar a subrotina em ASSEMBLY, 
dentro do REM: 



1 REM EjQQQ3S(aQ00ess0eo0e;e3300 
0aee00es0ai3000Qeeee0aeeee3eGe 

5 t_ET >J = 16B14. 
LET =«$ = ■■•■ 

IF R*="" THEN INPUT RS 
IF nj="P" THEN STOP 
LET X=ie»CODE Rt+CODE RS(2) 



20 
S5 

30 
35 
d.0 

2J ; • 

*5 

ss 



POKE J^X 

SCROLL 

PRINT "MEM. '■ : j; 

'■ : X 
LET <J~<J + X 
LET Rt=R$ f 3 TO ) 
GOTO 15 



; R $ f TO 



Figura 3 

Apos colocar o REM e o programs acima, no compu- 
tador, basta teclar RUN e NEW LINE e comepar a digi- 
tar OS c6digos da subrotina em ASSEMBLY, seguidos 
de NEW LINE: 

W NEW LINE 
M NEW LINE 
W NEW LINE 
W NEW LINE 

'1E00' NEW LINE 
'2AaC40' NEW LINE 



73' NEW LINE 
'E1' NEW LINE 
'C9' NEW LINE 



Neste ponto, 
cando: 



ultima linha da tela deverd estar indi- 



MEM 16597 C9 201 

Estes caracteres correspondem d mem6ria onde estd 
sendo colocado o c6digo (C9) e seu correspondente 
decimal (201). Digitando agora a letra P e NEW LINE, 
o programa para, Fatpam LIST e NEW LINE para verem 
o que acontece com o REM . . . 

Vamos ver agora, o programa em BASIC que utiliza a 
subrotina ASSEMBLY para gerar o caleidoscopio. Este 
programa produzir^ em m^dia, um tergo de caracteres 
normals; um terpo em vi'deo reverse e um tergo de espa- 
<pos em branco, como demonstramos abaixo: 





N 



' X REM B ■' £ .EeRNC> GOSUB Tfc^ND- 
t GOSiJS T-^ND GOSUB PTLN TflN RND 
GGSUB '?^p^?4&!aB«LN TftN RND5 PLOT ■ 
GOSue TfcRND G05U3 Pret-lNDEfiRND 

TA 

.X Pi" ** ^hLEIDOSCOPK) ** 
Ig REM PLfiiJIO ROSSINI - 19S3 

Se RRNO 

^1 \-%T 5 = J&t^^*^NT iS»RND) 

35 POKt 10516 ^Y 

J 4.3 POKE 1651*,x-aS5*INT fXySSS 

Z=e ^"^ ^'^^ f**^^ Z<±S& THEN LET 
60 POKE lesiQ^z 

FiBura4 

Execute os programas — aperte RUN e NEW LINE. 
Se modificarmos convenientemente as linhas 50 e 55, 
poderemos obter um caleidoscopio que utiliza apenas 
caracteres gr^ficos: 

50 LET 2 = INT tl7*RND> 4.J.aS*XHT 
(S*RNDJ 

5S IF Z>ie OR 2>13a THEN LET Z 

=a 

Figura 5 

Uma outra possibilidade para obtenpao do caleidos- 
copio 6 reduzir a geragao de espagos em branco, supri- 
mindo a linha 55 e alterando a linha 50 para: 



se LET ZsINT 



tll*RND> +12S*lffr 



Figurs 6 

Ou ainda para tornar a tela menos carregada, utilizem 
a seguinte tinha: 

so LET Z=1NT (i0*RND) +i 

Figura? 

Para tirar uma copia da tela na impressora basta digi- 
tar "Z", ap6s introduzir a linha : 

ea IP INKEYt = -"Z" THEN COPY 

no programa original. 




. . . Picture yourself in a boat on a river. 

With tangerine trees and marmalade skies 

Somebody calls you, you answer quite slowly 

A girl with kaleidoscope eyes . . . 

"Lucy in the sky with diarronds" 
John Lennon & Paul McCartney . 1967 

O 
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PROGRAMA DO LEITOR 



MM 




M M M M I 



REGRESSAO DE ORDEM N 



Enio Eduardo Kranen 



programa a seguir tern por finalidade ajustar uma 
equapao, — cuja forma genirica 6 — : 

Y = C + A.X + AiX^ +, . . + AnX" 

a urn conjunto de pares de valores dados, obtidos na 
maior parte das vezes por medi^oes de campo ou labora- 
torio. 

Na equagao dada, temos: 

C = Constante 

Y = Variavel dependente 

A,, Aj, . . ., An = coeficientes da variSvel in- 
dependente X, X^ X". "- 

A seguir, apresen tamos um exempio da varicivel inde- 
pendente por duas vari^veis, sendo X a variavel indepen- 
dente e Y a variavel dependente; 



X 


Y 


10,50 


23,70 


12,80 


30,84 


17,34 


42,01 


20,78 


47,12 


24,11 


60,73 


27,92 


71,35 


31,67 


82,42 


42,63 


91,58 


50,90 


92,33 


60,08 


95,15 



REGRESSRO DE ORDEM N 

HUMERO DE PRRES DE PONTOS'? 10 

X(l>= 10.5 Ytl)= 23-7 
XC2)= 12. S Y C2) = 38.84. 
X(3)= 17.34- YC3)= 4.2.01 
X C4.> = 20.78 Y (4.) = 4.7.12 
X CS) = 24.. 11 Y(S)= SB. 73 
X te> = 27. S2 Y (6) = 71. 3B 
Xt7J= 31.67 Y £7J = 82.42 
X C8J = 4.2.63 Ye8)= 91. S8 
X t9J = S0.9 YC9)= 92.33 

xcie)= ee.es Y(ie)== 95.15 

GRRU OR E0URCR07 

m 


J 


Figura 1 

Resultados: 



CONSTRNTE : 
COEF I" GRRU ; 



18.84- 

l.S 



Pede-se para determinar a equa^^o de grau 1 e de grau 
2, que ajusta aos pares de valores da tabela. 

programa foi elaborado de forma cotoquial, n§o de- 
vendo ocorrer dif iculdades no seu uso. 

A primeira pergunta indags sobre o numero de casas 
decimals desejadas na apresentapao dos resultados. 

Informe, por exempio, 2. 

A seguir informe o numero de pares de pontos, no ca- 
so 10, introduzindo os mesmos. 

Oltima informatpao requerida: grau da equapao?; in- 
forme 1 . 



COEF DETERM Ra : 0.87 

rNTERPOLRCOQ ; CENTRE a PRRR STOPl 
X= 25.12 

Yis ss.es 
x= e 

U . OUER RODRR OS HESMOS DADOS 
COM NOUO GRAU DE EQURCRO (5.'N) '? 



Figura 2 

Para permitir pesquisa da equapao (grau) que melhor 
se ajusta aos dados, dotou-se o programa da facilidade 
de novo processamento, com os mesmos pares de valores 
X, Y, sem a necessidade de reintroduzi'-los, o que se tor- 
na extremamente vantajoso quando a quantidade de va- 
lores for alta. Responda S (sim) ^ pergunta ; 

"Voce quer rodar os mesmos dados com novo 
grau de equapao (S/N|?" 

Grau da equapao? 2 
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Resultados: 

CONSTONTE : 
COEF !■ GRfiU 
COEF a" GRRU 



-IS. 9a 

4.. 31 
- . 04. 



PflRR STOP> 



COEF DETERM R2 : . 99 
XNTERPOl-nCRO : (ENTRE 

X = 

Figura 3 



Nota-se, pels comparapao dos dois valores de R2que 
a equa(;:ao de grau 2 se ajusta melhor aos dados, o que 
tamb^m pode ser comprovado tragando-se gr^ftcos das 
mesmas, com os valores de X e Y. 

processo acima, poderd ser estendido at^ graus 5 ou 
6 da equa(;:ao. Lembramos que, ^ medida que sobe o 
grau da equagao a precisao dos resultados decresce, fato 
gerado pelo numero de casas decimals com que § efetua- 
do processamento. Nao confundir com as casas deci- 
mals fixadas anteriormente pelo usu^rio e que foram uti- 
lizadas unica e exclusivsmente para a apresentagao dos 
resultados e nao para o processamento. 

A regressao linear 6 um caso particular da regressao de 
ordem N, onde o grau da equagao foi fixado em 1 . (Veja 
exempio anterior). 

3.aie REM REGRESSRO QRDEM M 

1020 LET F*=-(INT C ■ U-t-S . 5XUi *iJ> I 

^U" 

1030 SCROLL 

104.B PRINT "REORESSRO DE ORr>EM N 

lese SCROLL 

less PRINT 

1070 SCROLL 

IBSe PRINT 
ONTOS'? ■•; 

X090 INPUT N 

1100 IF N<2 THEN 

1110 PRINT N 

1120 SCROLL 

1130 PRINT 

H4.0 DIM XINJ 

use DIM Y(N) 

1160 FOR 1=1 TO N 

1170 SCROLL 

liae PRINT "Xf 

1190 INPUT XCI) 

1200 PRINT XtlJ 

1210 IF X <I) <0 

1220 PRINT "V C" 

1230 INPUT Yd} 

124.0 PRINT Vtl> 

lase IF Yd) (0 

1260 NEXT I 

1270 GOTO 1330 

12S0 CLS 

1290 PRINT 

1300 PRINT 
□RDENRDRS 

PIS X E Y 

1310 PRINT 
REI^4ICIRR. • 

1320 STOP 

1330 SCROLi 

1340 PRINT 

1350 SCROLi 

1360 PRINT 

1370 INPUT 

X380 PRINT 



NUHERO DE PRRES DE P 



GOTO 1050 



I; " ) = 



THEN GOTO 
I; "> = "; 



iSLXS 



THEN GGTQ ISB® 



"H JUSTE SISTEHR £>E CO 
PRRR OBTER COORDENRD 
PQSITIUfiS. "■ 
■DIGITE ■■'RUN— PRRR 



"GRRU 

D 

D 



DR EOURCHO? 



1390 


IF D<=6 THEN GOTO 14-50 


14.00 


SCROLL 


14.10 


PRIt>fT 


14.20 


SCROLL 


14.36 


PRINT "HRIOR GRRU RDHITIDO 


14-40 


GOTO 1330 


14-S0 


SCROLL 


14.60 


PRINT 


14.70 


SCROLL 


14.S0 


PRINT "INFORME O NUMERO DE 


EURDO DE^ 


14.90 


SCROLL 


1500 


PRINT "CRSifiS OECIMRIS NR R 


RESENTRCRO" ; 


1S10 


SCROLL 


1S20 


PRINT "DOS RE5ULTRDOS; 


1530 


INPUT H 


154-e 


PRINT H 


1550 


PRUSE 150 


1S60 


CLS 


1570 


FHST 


15B0 


LET U=10**H 


1S90 


DIM Rt2«^D + l} 


1600 


DIM RtD+l.D+2) 


leie 


DIM T tD+2> 


162© 


FOR 1=1 TO 2tD+l 


163 


LET fl CI> =0 


164-0 


NEXT I 


1650 


FOR 1=1 TO D+1 


1660 


FOR U=l TO D+2 


1670 


LET R ( I, JJ =0 


1680 


NEXT J 


1690 


NEXT I 


17O0 


FOR 1=1 TO D+a 




F«f « COMO OS 

FUNCMNkmOS D« 

ALCAN, XEROX, 

SEARLE. COPAS, 

INTILPA, DARUHC, 

AIR SCRVICC: 



IIATRICUl£-SE NA 

O.S COMPUTAPOMS. 

CURSOSOE 



BASIC e COBOL. 

• Nijinero Umltado de alunos por 

classe * 1/3 de todas as aulas com u$o 

direto dos computadores. inclusive not ctirsos de 

Cobol • Professores altamente qualificados • Cur»o« 

apostilados e apresentados com tran^wrincias • Modemas 

lnstalaf:6es com v^rios equipamentos Dtsmac, PnUpcti, 

Sysdlta entre outros • Prefos extremamente acessfveis. 



COMPUTAOORES 

NUCLEO I 

Av.pBcaambu. 1.230 
font: 66.7656/66.1 SI 3 



A NOVA MANErRA D£ 
APflEND£R A PfiOGRAMAR 



L. 



NUCiEO II 

R.Tomis CsrvalKal, 3 SO 
(PiAifmo Estap to Mttri ParolsoJ 
Fons: 570,6097 
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1710 


LET T t I) =3 2520 


IF X=0 THEN GOTO 2610 






1720 


NEXT I 5S3G 


FOR U=l TO D 




1730 


LET flCl)=l^ 2S4G 


LET U=U+R £U+1^ D+2) *X** J 




174-0 


FDR 1 = 1 TO N 355e= 


NEXT O 




175© 


FOR J=2 TO 24D+1 2560 


SCROLL 




1750 


LH n CJ) =R CUJ +X (I) ** ( J-IJ 257© 


PRINT "Y^ ■■;URL F$ 




1770 


Ke>rr j asse 


SCROLL 




1780 


FOR K=l TO D+1 259e 


PRINT 




1790 


Ltl R tKj,D+2) =T tK) +Y f I> *X CI) 2600 


GOTO 2476 




** tK- 


-1) £610 


SCROLL 




1800 


LET T CKl =T IK) +Y t D iX ( IJ ** tK 262© 


PR INT 




-1) 


2630 


SCROLL 




1810 


NEXT K „ SS^^^ 


PRINT -U. QUER RODHR OS 


MES 


18S0 


LET T CD+21 =T ID+a) +Y (I) *#2 MOS DRDOS" 




1830 


NEXT I 2650 


SCROLL 




184-0 


FOR j=i TO D+1 seee 


PRINT "COM NOUO GRRU DE 


EfflU 


1850 


FOR K=l TO D+1 RCnO 


fSyNJ"" 




1860 


LET R tJ,K) =fi tJ+K-lJ 2670 


SCROLL 




1870 


NEXT K 26SG 


PRINT 




isae 


NEXT J 2690 


INPUT 0$ 




1390 


FOR U=l TO D+1 . 2700 


IF 0$=-S" OR Qt="SIM" THEN 1 


1300 


FOR K=J TO D+1 GOTO 


1350 




1910 


IF R(K.vJ)<>0 THEN GOTO 137© 2710 


SCROLL 




IQSe 


NEXT K 2720 


PRINT "W. OUEH RODRR O PROG 1 


1930 


SLOU RRMfl 


COH" 




194-0 


SCROLL 2730 


SCROLL 




1950 


PRINT "NfiO HR SOLUCfiO UHXCfi 274© 


PRINT "NOUOS DRDOS CSy-Nl 


"?" 




2750 


INPUT 0$ 




1588 


GOTO 2610 S760 


IF 0*="S- OR C9="SIH" THEN 1 


3.370 


FOR 1=1 TO D+2 RUN 






3.980 


LKl S=RtJ.l) 277© 


STOP 




1SS0 


Ltl R tU, Z3 =R (K . I) 2780 


SRUE "ReGRESSfiQ DE ORDEH B" 1 


2000 


LET R1K,1)=S 2790 


RUN 




2010 


NEXT I 2806 


STOP 




2020 


LET Zslz-RtJ^U) 




o 


2030 


FOR 1=1 TO D+2 






204.0 


LLI R (J, IJ =Z*R(J.. IJ 






2050 


NEXT r 






2080 


FOR K=l TO D+1 






2070 


IF K=J THEN GOTO 212© 






2080 
2030 


LET Z = -R(K.»J) 






^^^^^ 




FOR 1=1 TO D+2 








2100 


LET RtK . I) =R tK.. I> +Z*R tJ. I> 




f^^ Xadrez 






2110 


NEXT 1 








2120 


NEXT K 




H "^H Divulgapao e 






2130 


NEXT J 




^ Eriipruendimentos LIda. 






214.0 


SLOU 










2150 


SCROLL 




TUDO PARA A PRATICA 






2180 
2178 


PRINT 
SCROLL 




r\r\ nci r\nc \f\c*fwi 








DU KbI UUb JUuUo 




2180 


PRINT 'CONaTRNTE: " . 










2130 


Ltl U-Rtl^D+2J 




Xadrez Eletronico 






2200 


PRINT URL F* 




Tabuleifos e pe^as 






2210 


FOR J=l TO D 




Mesas e relogios 
Livros e revistas 






2220 


SCROLL 








2230 


PRINT "COEF "^U.;-" GHRU." 




Aulas e Simultaneas 






2S4.0 


LET U=RCJ+l,D+a) 




Onganlzagao de Tomaios 






2250 


PRINT UflL Ft 










2260 


NEXT J 


Av. Brio? Faiii lima. 1S44 ■ sbl. «1 - 01452 ■ £«o Paulo - SP 






2270 
2280 
2290 


SCROLL 
PRINT 




Fwws: (01 It B1+9340 ■ 814-9S39 






LET p=a 






*^^^ 


230e 


FOR J=2 TO D+1 






2310 


LET P=P+R tJj,D+2> « CT tJ> -R (J) 






*T CD 


^N) 






232© 
2330 


NEXT a 










LETT 0=T tD+2> -T ( 11 t*2-'N 


/' 




"^ 




2340 
2350 


LET z=a-p 

LET I=N-D-1 




ANUNCIE NA REVtSTA 




2380 


SCROLL 










2370 


PRINT 










2380 


LET U=PyQ 


1 


1 M Y/^Fk i^Y Y/\V^ V> Y7 






2390 


SCROLL 




I/I If Icf ll-lf IKKY 






24.00 


PRINT "CCEF DE1ERM R2:"'..UflL 


J 


tI I\/l\v/nv/D D 1 






F» 












2410 
2420 


SCROLL 
PRINT 


e tenha uma divulgagSo eficiente de 






2430 
244e 


SCROLL ^ 




seus proautos ou servigos. 






PRINT "iNTERPOLRCfiO: fENTRE 










a PRHfi STOP J " 1 










2450 
2460 
2470 


SCROLL 

PRINT 

LET U=R{1^D+2J 


^ PUBLICIDADE ■ FONE: 257-5767 - SP. 






2480 


SCROLL ^^ 






2490 


PRINT "X= ■* 






2500 


INPUT X 






2510 


PRINT X 






10 MICROHOBBY 








PROGRAMA DO LEITOR 



Localizar astros, nebulosas, galaxias ou qualquer obje- 
to no firmamento, nem sempre € uma tarefs facil psra 
OS astronomos amadores. As vezes, por nao estarem bem 
familiarizados no reconhecimento das constetagoes e em 
outras devido a pequena luminosidade destes astros, o 
que dificulta ou at^ impede a sua localiza(pao visual. 

Este programa e uma util ferramenta quando se deseja 
localizar qualquer ponto na esfera celeste fornecendo, 
uma dada hora solar, k hora sideral correspondente. 

Para aqueles que nao estejam bem familiarizados com 
OS elementos usados no c^lculo, bem como sua termino- 
logia, aqui vgo algumas exp1anac;:oes: 

tempo necesscirio para o Sol cruzar 2 vezes conse- 
cutivas um determinado meridiano 6 chamado "Dia So- 
lar", que ^ constitui'do, por convenQao, de 24 horas 
solares. 

Quando o Sol estd sobre o nosso meridiano seu angu- 
lo hordrio, H, 6 nulo e nosso relogio marca 12 horas ou 
meio dia. Matematicamente podemos escrever: 

t= H + 12 

onde: 

t = tempo solar local 

H = arigulo horario do Sol medido em horas solares. 

Em analogia S hora solar pode-se definir a Hora Side- 
ral. dia sideral 6 o intervalo de tempo decorrido entre 
duas passagens consecutivas de qualquer estrela por um 
determinado meridiano e, tern por conventpao 24 horas 
siderais. Mas os astronomos nao usam, qualquer estrela 
para medir a Hora Sideral. Existe um ponto ficti'cio cha- 
mado Ponto Vernal ou Ponto 7 (gama) e, ^ atravfe do 
angulo horario deste ponto que se medea Hora Sideral, 
com uma diferenga em relagao ao tempo solar; nao se 
adicionam 12 horas ao angulo horario do ponto vernal. 
Matematicamente podemos escrever: 

T= H 

onde: 

T = tempo sideral 

H = angulo hordrio do ponto vernal medido em horas 
siderais. 



HORA SIDERAL 

Fernando L. Fogliano 

E feicil constatar-se que o dia sideral e cerca de 4 mi- 
nutes menor que o dia solar. Desta forma, o fionto ver- 
nal e lodas as demats estrelas cruzam o meridiano de um 
determinado local aproximadamente 4 minutos maisce- 
do que no dia anterior {movimento anual da esfera ce- 
leste). 

Para se localizar um ponto qualquer na esfera celeste, 
OS astronomos criaram um sistema semeihante ao siste- 
ma de coordenadas geogrdficas (longitude e latitude). £ 
o chamado Sistema Equatorial de Referencias. Neste sis- 
tema astro possui, analogamente ao sistema geogrSfi- 
co, duas coordenadas, a saber: Ascenpao Rata e Declina- 
?ao. Para melhor se compreender estes elementos, pode- 
mos fazer uma analogia entre Ascen^o Reta e Longitu- 
de Geogr^fica e, Declinapao e Latitude Geogr^fica. Va- 
mos definir entao, que significam estas coordenadas: 

Ascensao Reta a - £ a dlstancia em ho- 
ras siderais, contadas a partir do ponto vernal, sobre o 
Equador Celeste, ao Ci'rculo HorSrio de um astro qual- 
quer no sentido oeste-leste. Varia de 3 a 24 horas. 

Desta definipao vemos que o ponto vernal i a origem 
das ascensoes retas, dai' a necessidade de localizi-lo cal- 
culando a Hora Sideral. 

Declma^ao 6 — £ a distancia em graus, 
medidos sobre Cr'rculo Horario, a partir do equador a 
um determinado astro. A declinagao varia de (5° a 90° 
Norte e de a"90o ao Sul. 




PSC 
Dados de alimentapao do micro-computador 

1 Hora Sideral a Hora de Grenwich — Tempo Univer- 
sal HS0 — Este valor pode ser encontrado no Anuirio 



MICROHOBBY 11 



AstronomJco do Irtstituto Astronomico e Geofi'sico da 

Universidade de Sao Paulo, na segao Sol, sob o ti'tulo 
"A0h T.U. HORASIDERAL". Este valor nos fornece a 
posipao do ponto vernal, quando for Hora em 
Greenwich. 

2. Longitude — E uma das coordenadas geograficas do 
ponto onde se d^ a observaipao. £ dada em horas, minu- 
tes e segundos, Para que se facpa a conversao de graus em 
horas, basta relacionar: 24 horas - 360 graus; 1 hora — 
15 graus. 

3. Fuso Hor^rio — E o fuso hor^rio no qual nosencon- 
tramos, positive a oeste de Greenwich e negative a leste. 

4. Hora Local - E a hora solar na qual estamos queren- 
do catcular a hora sideral. 

Para Sao Paulo, a longitude € aproximadamente tres 
horas, 6 minutos e 30 segundos e o fuso hordrio e de 
tres horas; valor este que vale para toda a faixa Atlantica 
brasileira. 



13Q GOoUE 30S 

14.0 i_Ef Hi_C-e:C=DHC 

15© i_eT TiJ=H£_D£C+FUSQ 

1&3 LET DE;i_TS=TU*3&6,a5/-3e-5.aS 

l"7e LET T55=HSDHC^-DELT3 

ISe IF T5G;-a4. TH£t! LET rsG=TSG- 

lS«e IF TSG<Q THE:N let T.5^.G=T.SG*-2 

'aeS LET TSLsTSG-LDEC 
2:i© LET R=: £T 5L-i:!S»T f.TSL> "i *&S 

ase LET B=tp~x^fT ifi> ) tee 
sse SLOW 

2*e PRINT RT 1.0,1,-B HORR S ZQER 
i=^L LOCHL E" : •• ; ftT 13 . 3 . IMT ?.TSLJ ; 
RT IS, 13; "HORrtS" . RT 14 .3; ZJ^TT iR? 
.; RT 14., 13: 'i-tZNUTOS-'; RT " 16 . 3 ; B ; FFT 

16, 13; "SEGUNOGS" 

^S0 PRINT RT lS,S;--UOCE SUER Cfi 



le P RJtJT ^=fT 1 , i.; " 

S0 PRINT 3T 5,1; •■ 
R HQRR 3IDERRL R 



f^sm^ssmm . 



LCULRR R HORR 
RL PRRR OUTRC 
HI • 

a-?s XF ZNKE^ *=■■&■ 

S©0 IF INKEY$="K- 

£93 GOTO £■?& 

3e© FR5T 

3 IS PRIMT RfT 6.1; 

320 ZNPLrr H 



S ZC'ERRL LOC 
INSTRMTET <;S,' 



THEJi GOTO 
THEN STOP 



iS© 



' Gf URL R HORR ' 



ZNTRO&U2R 
e HORR DE 
TEMPO UNZUERSRL: " 

3B eosuB sea 

4.0 LET H5DEC=DEC 

se PRINT RT 3 . 1; "INTRODUSR R L 
ONGITUDE" 

ee GOSUB 300 

73 LET LDeC=OEC 

se PRINT RT 3,1; 
USD HORRRZO" 

Q0 INPUT FUSO 
lie CLS 

120 PRINT RT 3.1; 
QRR LOCRL" 



33© PRINT RT 7'.4.;H 

3d0 PRZKT RT e.. s..,- "GtUR?rra^ 



nXHtJT 



as--" 

3B0 INPUT M 

360 PRINT RT 

37S PRINT RT 
NDOS-?" 

3Sa INPUT S 



Q .4. ; M 

le . 1 ; "SfiiR^fTOS 5-EQU 



ZNTTRODUZR Q F 



INTRQOUZfi R H 



390 PRINT RT 1 1 . d. ; S 

4.00 LET D = H+S,-S© 

4 IB LET E=D^&B 

42© LET E>EC=H+E 

430 PRUSE SG 

4-4© CLS 

450 RETURN 



o 



COM PREQOS ESPECiAIS DE LAN QAMENTO 

EXPANSOES Lpl^k 

A FORCA INTELIGENTE PARA SEU MICRO 



lOPLAK: Placa In/Out. transforma seu micro numa 
centfat de comando programado, com 8 entradas e saidas 
Controfa reles, motores, trenzinhos eletricos, etc. 
Prego especial: Gompleta CrS 55.000,00 

BIPLAK: Placa Bip. assegura teclagem correta por 

aviso sonoro Pode ser programada para assinalar passagens 

de jogos, aeoes de programas e muito mais. 

Prego especial: Completa CrS 42.000.00 

CARAPLAK: Placa de Caracteres. produi os grafismos 
que v. quer e os introdui em quatquer prograrna 
6 um sucessD na microcomputagao. nos EU.A. e na Europa 
Prego especial: Completa CrSSS.OOO.OO 

PLAKMAE: Placa de conexao. permite o uso srmultaneo 

de varias placas TpIeK e qualquer outro perK^rico que se 

liqa diretamente aos micros TK (82. 83 e 85). 

Sua aquisigao assegura um desconto 

direto de CrS 5.000.00 na compra d« qualquer OUtrO 

produto TplaK. 

Prego especial: Completa Cr$ 38.000,00 



ESTES PREqOS SAO VALIDOS ATE 15 DE N0VEM8R0 
So ATENDEMOS PEDIDOS PELO CORFEIO 



Faca agora mesmo sua encomenda, usando o cupom abaixo. 

para garantir esses pregos de langamento. 

Dentro de 30 dias V. recebe a mercadona pelo Correio, 

abre a embalapem e instala imediatamente a placa TplaK 

no seu micro, t facil como conectar uma expansao 

de memorial Mas. para receber a mercadoria o mais 

rapidamente possivel. siga as instrugoes abaixo: 

• Preencha o Cupom de Pedido com letra de forma legivel, 

• Faga um cheque no valor da encomertda. em nom© de: 
TplaK Eletronlca lndu$tria e Com«rcio Ltda. 

• "Cruie" cheque, lazendo dois riscos paralelos. 

• Ponha cheque e o cupom em um envelope, e envie-o para 
TPLAK ELETflONICA Ck. Postal 452 CEP 09000 - StO. Andre - SP 

• Aguarde ate 30 dias para receber seu pedido pelo correio. 




ELETRONICA INDUSTRIA E COM6RCIO LTDA. 

Rua Cisptatina n" 768 

Cx. Postal 452 ■ CEP 09000 ■ StO. Andre ■ SP 



CUPOM DE PEDIDO 

A TPLAK ELETRONICA INDUSTRIA E COMEHCIO LTDA, 

Sim, pefo enviar-me pelo Correio. dentro de 30 dias, os produtos atjaixo: 



Produto 


lOPLAK 


BIPLAK 


CARAPLAK 


PLAKMAE 


Ouantidade 
















Total CrS: 



NOME: : 

ENDEREQO: 

TELEFONE: CEP: CIDADE: 

ESTAOO: ...„ MICROCOMPUTADOR: .. 

CHEOUE N,': VALOR: 
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aula 5 



CURSO DE 



BDiSdKOicZ] TK 




Nesta aula, iremos introduzir urn novo tipo de racio- 
ci'nio usado para elaborar programas: trata-se de um ra- 
ciocinio GRAFICO que facilita a "visual izapao" de um 
programa'e cuja utilidade torna-se evidente" quanto 
mais complexo for o programa a ser realizado. 

Este raciocinio ^ denominado FLUXOGRAMA ou 
DIAGRAMA DE BLOCOS e baseia-se no fato de as- 
sociar, a cada id^ia basics usada em programagao, um 
si'mbolo; sendo que, os varies sfmbolos sao interligados 
por linhas orientadas, que indicam o fluxo deexecugao 
do programa. Outra vantagem deste m^todo e a sua uni- 
versalidade; de fato, como as id6ias basicas de qualquer 
linguagem sao as mesmas, uma vez feito um programa 
em diagrams de blocos, ele poder^ ser facilmente "tra- 
duzido" para BASIC, FORTRAN, ASSEMBLY, COBOL 
ou qualquer outra linguagem, desde que ela nao esteja 
estruturada (o significado deste termo nSo pode ser ex- 
plicado num curso introdutorio como este). 

At^ o presente, as id^ias basicas vistas por n6s foram: 

SI'MBOLO 

a. Entrada de dados por teclado: 

(BASIC = INPUT) 

b. Sai'da de dados para a tela: 

(BASIC = PRINTJ 



Fig 1 



c. Loops: 



(BASIC = FOR/NEXT) 




Fig, 2 



O "^ig. 3 



d. Instrugoes matematicas utilizando 
variaveis de memoria e comandos 




diretos: 

(BASIC = LET/CLS/RAND/ 

/+/-/Etc.) 



e. Ini'cio de programa: 

f, Fim de programa: 



Flovio Rouini 




UNQAMENTO 



PASSAQEM PAKA O IMTIHIXO 

SandaclDn&l JiO^O onde voce lentara encon1.rAr q sair com um r&bulo^o l«svurci em um 
GoinpiBXQ l&birtnto. :gu&rda.cio pcir t«rrivekd pciivus rriDristroti. « cofn mais- de 400 ptA 
SOS P&rb b)ud& Lc. vo^;i contara c^>m algumas espadas. que garantirAo sua sotlTflvl 
vdncia na luta eon ap, ntonstroa, e com os priflionflirots ericarceradoa n&B v*.r]a§ pas 
salens c^UB IhA EndicarAO f:y cam mho a, segutr TolalmertLa em linguagem de m^tquLna 
com grafiffDB fantaaEiC-aiTbenLe ar^imado^ ? Iris ntv^j^i. de 4)hi;uEdade para desafia \o 
Praco Crt ? 000 00 

WDWAT 

Uma grange' guerra mundial eau^sendotrarada njutdgujisdn AUaniica Voc^igoraA 
QCOmaridant«(1osubmariirioau:>mico UIDWAY. sua miSaAo destrmr tod as as ba»» 
inlmigaa«ni «t^uas braailflirafi Guifladocom ob n«viQ«, avsOes e Tramas asp&lhiUlc^S pft 
108 mvaflorfls Para auxklaa lo poderA conLaroam uma frou d«i navhcs de reaba«t«c> 

menLo, virJas baflSB aLuadas e um etj^mputadgr de bortJo Um grande desariu com gfS 
ficoa e vAnas ryiinas mn hiieuaecm de miquina Prwjf' Crt 5 000.00 



- JOBIVAI>A MM ESTB£LAS 



A 9U« nawe intArplanetarift ENTP.EPRISK fiwesBlta livrar a galfcxia aos invasc?reG 
Klingon. e voc^, como con^andafiLe da na/B, uttA a irdua mLS84c de destrui toe EJm 

jogci Is.mgso nc mLindft lodn em uma de auas melharBs ^e^s(^es pelaStiftkristian. rmm 



-a* DIMENSAO- 



A^gora vocA JA pfxlvlerijrn riiperarrLaem seu mlcrncnrnpulador eni^' DIftfFNSAOdogA 
jogosai^iLadjHimns para u$tar »ua coordenaf Ao moiot* Em SPACE INVADER voc* 
ternoSDri^tnaisbnvm&nrasatacandoauBnaveeem A5THF10JD vDcddevep4'>u&&remu[Ti 
planflLao, para Lanlc4everau]lrapa3fi4Lro$o)3{^tACul<>!SC}U'e' v»«ma£iuafren.l«t«nian>iJc7 
(le&trul. ]D Grandos jo^oa tim linguagem tie maquina Pnt^o Cr| & 000.00 



VESrUAOCASSXHO 



Quairo BrandBH jogog om um ift caga-ruquflis, roleut. Z\ . e jwrBcauiffto raLa! fasem 
partadase«s«nsaf tonal conjun to TodceoBjagoacomgraricoBerotinas em linguagem 
dij mAquma. para voqft que gosLa de aposLar e tnrcer Pra^o Cr| 5 000. CW 



- 10 JOOOS EXCIXANTES FAKA 1 X- 



0«z pequendS jo^na para wacti incremenLHr e apr«rider bafit4.nt« fj« ^feitoa d« pro^ra 
ma^Aode)Dgoa« Lrabalhoeeom vtdeo £evoc4 nAodtDp&e daexpa-nsAcde IQ K)& pod4» 
raurantrewnimentocDmssiastrnsacionaJrsLa 84 vi:»c0]ActL£p<wid(t 16K compnsoara 
inci^msnii loaa tarfc»xo«l«nt49 Jogos Pi^o CrU 000,00 



Comply to'fiost'O df c>u4iq[i<it' pdnc do B'^^ii sen^ 
(]e^PGS.^s Micii&nais envunflo um tnequt irutA 
HOi niiiT\ind'»nn\ShA.UlLiTrt(ifi\CAiHii in Jo 
pjfCias vm^i t QiTsnMO rtceCimenlD OS nosso 
mlQrinjEivD N0VIDACE5 KHiSTIAN lOlilm^Jt 
graluiti} 



[Kpisfisn] 



Rua da L&pB.. 120 grupo SOS 

Tels : 252 9037 ■ 23iS SB48 

CEP 200S1 Rio da Janeiro RJ 



Todaa as f lt4e vAo«mambhUflHml&cr&d4. eorn0ravAQ4f>prorsfiBjon»l. p4r4ttt4gAr«A- 
tU. A Krifilan Lroo*r* quftiqu«r f LbA que b«j« finvLulft, com fi«(9\KiB de TAbrtcccAc 
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ENGENHARIA 
DE SISTEMAS 
E COMPUTADORES 



r~ 



Especializada em: 

• Desenvolvimento e implantaQao de 
sistemas (em laborat6rios de an^lises, 
Imobili^rlas, lojas, ...) 

- ServiQOS de Consultoria 

- Comercializa^So de programas e 
microcomputadores <JR ■ SYSDATA, 
TK - MICRODIGITAL, MICRO ENGENHO, 
PROLOGICA) 

- Cursos de BASIC e ASSEMBLER 2^ 

- ImplantagSo e/ou coordena^So de 
cursos de programaijao em escolas. 



ENSICOM 

ENCaENMARIA oe SISTEMAS e COMPUTADORES 



B. Marqu6s do Herval, 409 1? andar • sz\a 16 
fein« 33-2944 ■ TaubaW - S. Pauio 




Continuatjiio do fluxograma, 
quando nao ha espago f I'sico; 



o 



Fig. 7 



* qualquer st'mbolo sem ser 
I, F ou R. 

Vamos apresentar agora urn outro conceito, talvez o 
mais importante em programagao: a tomada de decisoes 
por parte do computadorl Esta 6 uma ordem que torna 
o computador capaz de decidir - baseado numa condi- 
gao especi'fica - qual "caminho" seguir na execute de 
um programa. Esta caracten'stica ^ que faz com que o 
computador seja chamado de "maquina inteligente". 
sfmbolo utiltzado para tomada de decisoes & o da fi- 
gura seguinte: 




Fig. 8 

Para exemplificar, facamos um programa que "per- 
gunte" um numero, coloque-o na vari^vel N e escreva na 
tela BELEZA, se o numero for maior do que 100 e 
ALEGRIA, em caso contrdrio. Este seria o FLUXO- 
GRAMA: 




Fig. 9 

Note que a ideia de tomada de decisao, ao contr^rio 
das demais, implica em uma "entrada" e pelo menos 
"duas sai'das" (todas as outras tern apenas uma entrada 
e uma sai'da). Surge assim, uma pequena diticuldade ao 
ten tar passar este programa para o BASIC, pois as instru- 
goes sao escritas sequencialmente, ou seja, numa unica 
"dimensao". A instru(;;ao de decisao tern a seguinte 
forma : 



IF ICONOIQAOl THEN iFAQAALGOl 



Fig. 10 

Caso contr^rio, prossiga para a pf6xima tnstrupao. A 
kay-word IF estS na tecia U e o THEN na tecia 3. Note 
que esta estrutura e a unica que permite o aparecimento 
de duas key-words numa unica instrugSo; de fato^ ap6s o 
THEN, o cursor volta a indicar 13 . 

Vamos entao ao nosso programa: 



10 


f='RINT -ESCQL.HR \Jt-% NLFME 


ao 


INPUT N 


30 


PRINT N 


4.e 


PRINT 


so 


IF N > 3.3Q THEN GQT-Q LQS 


&e 


PRINT "Ri_EGRIfl" 


TG 


PRLiSE ISO 


Si3 


CLS 


gis 


GOTO IQ 


10E 


PRINT ••BE-_E:nR' 


lie 


GOTO yis 



Fig. 11 
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Na I in ha 50 o TK toma a decisao: se N > 100; caso 
contrario, prossegue para a linha 60. (0 si'mbolo > esti 
na tecia M). 

Perceba como 6 ma is simples normalizar o programa 
em diagrama de blocos. Note que o GOTO nao tem si'm- 
bolo especial; ete corresponde h uma linha orientada. 
Vale a pena salientar tamb^m que nao e necessario in- 
ctuir detalhes nos fluxogramas: por exempio, no progra 
ma anterior o comando de pular linha, nao foi incluido. 
Apenas as id^ias principals devem ser "desenhadas"; isto 
facilita a visual iza<;aio. 

Antes de continuar com mais exemplos de utilizagao 
do fluxograma, vamos apresentar mais duas instrugoes. 
TK tem duas velocidades de trabalho: uma lenta 
(SLOW) e outra r^pida (FAST), Quando ele opera em 
SLOW, ele se preocupa em executar o programa e, ao 
mesmo tempo, mostrar os resultados na tela; em FAST, 
ele "esquece" a tela e os resultados so sao apresentados 
durante uma PAUSA, ou no final do programa. Natural- 
mente, cada uma tem suas vantagens e tudo depende de 
cada caso. Quando o TK e ligado ele automaticamente 
opera em SLOW. No entanto, para digitar um programa 
e mais conveniente usar a velocidade mais rapida; de fa- 
te experimente digitar; 



UET X— S.£34£&7S3ei.23>t.5&7a50 



Fig. 12 



A seguir, digits FAST (shift F) e NEW LINE e repita 
a operapao acima: (OBS.: Para entender bem estes co- 
mandos, execute os programas dados na aula 3 em 
SLOW e em FAST). 

Vamos entao fazer um programa que "chuta" um nu- 
mero; voce terd que adivinh^-lo no menor numero de 
tentativas possi'veis. 




RAND 



^ 



X = INT 
(m*RNO) -t-1 



Figura 13 



LIVROSPARA TK, SEZ, CP 



TRINTA JOGOS 

INCLUINDO PROGRAMAS EM CODIGO LIS 
TADOS POR IMPRESSORA 

JOGO OE DAMAS, LABIRINTO, GUERRA 
NAS ESTRELAS, ENTERPRISE , PAREDAO, 
OEMOLIDOR, VELHA, pASSINO, ROLETA 
RUSSA, CORRIDA DE CAVALOS, GOLF, 
VINTE E UM, CUBO MAGICO, SENHA, BAN 
CO IMOBILIARIO, B0M8ARDEI0, SOW 
POR SOFTWARE, ETC.... 
LANQAMENTO CR$ 4.000^00 



APLICACOES SERIAS 

FOLHA DE PAGAMENTO, BALANCETE , CON 
TAS A RECEBER, A PAGAR , CORREgAO 
MQNETARIA DAS CONTAS DO BALANgO , 
CORREgAO DAS CONTRIBUigOES DO I. 
A.P.A.S., CAOASTRO DE CLIENTES , 
CONTA BANCARIA.TABELA PRICE, ESTA- 
TlSTICA.CORREgAO DE PROV AS, EDITOR 
DE TEXTOS.RAM TOPER , SUB-ROTI^I.^S 
EM CASSETTE, CHAINING PROGRAMAS, 
CONTAWDO OS BYTES DAS LINHAS, DO 
PROGRAMA, DAS MATRIZES, ECOWOMIZAN 
DO MEMORIA, ETC... ETC... 

CR$ 4.800,00 



45 PROGRAMAS 



AROUIVOS.ESTOQUE, PLANO CONTABIL , 
AGENDA TELEFONICA, INVASORES,APAGUE 
A TRILHA, CAQA AO PATO, JOGO DA VE 
LHA, FORCA, DADO, TASELAS , TABUADAS, 
CONVERSAO DE COORDENADAS, MEDIA, FI 
BONACCI,PROGRESSA0, BIORRITMO , RE 
NUMERADOR DE LINHAS EM CODIGO, ETC. 



7? EDigAO 



Cr$ 4.000^00 



MICRON 



ELETROMCA COMERCIO E INDUSTRIA LTDA. 

Av S Joflc 'i 'eletone .: 2 "1194 S. Jose dos Campos 

Est, de Sao Paulo 
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Qbs. : O sfmfaolo <! ^ lignifica ^ 





O que, em BASIC, ficaria: 

le RRNO 

IS LET X = INT tl.e«RND>+3. 

ao PRI^^^ "rdiuinhe u« nuherq c 

E 3. R 10 QUEEU UOU CHUTRR" 

30 LET 1 = 3. 

4-B INPLfT R 

50 CLS 

&0 IF R>X THEN PRXNT "Q NUH . Q 
UE EU CHUTEX E < DO SUE ".H 

7B IF R<X THEN PRINT "O NLfH . O 
UE EU CHLTTEI E > DO QLIE: " ; R 

ee IF R<>X THEN GOTO iSS 

90 GCrro 3.3© 
lae PRINT —TEHTE OUTRR ^»EZ" 
110 LET 1=1^1 

lae GOTO 40 

130 PRll^T "UOCE RCERTOU EH " : X; 
" TENTRTIURS" 

Execute o programa! Perceba o uso da varidvel I 
como "contador" de tentativas. si'mbolo < > est^ na 
tecia T e o sfmbolo < est^ na tecia N. 

Este programa poderia ser escrito mais "elegantemen- 
te", eliminando a linha 90 e substituindo a linha 80 por: 



80 IF R=X THEN GOTO X30 



Figura 14 



r 



AD DATA 

Educofoo e IntermdNca S/C Uda 



QUR%0%: 

Introdu^ao d informdtica 
Programa^QO em linguagem basic 
Programa<;ao estruturada 
Microcomputadores - conceitos e recursos 
Precos especJois paro grupos fechodos 
(empresas, asK)ciQc;5es, escolas, etc.) 



AD DATA 

Com^rcio e Servifos de (fiformiitico 

Microcomputadores pessocis, 
profiSEionais e empresoricis 
Desenvolvimento de oplicot^oes especificas 
(engenharia, medicine e odontoiogia) 
Consulfe a lista de softwore AD DATA 



SHOW ROOM: 

Ruo Amdlio Noronho, 181 - Pinheiros - CEP 05410 - SP 

Tels.: (Oil) 853-7209/282 0562 




CURSOS DE PROGRAMAPAO 

(para cnangas e aduftos) 




SO AULAS PRATICAS 

METODO APRENDA - FAZENDO 

Rua Paraibuna, BO - (ao lado da FundapSo) 



SAO JOSE DOS CAMPOS 
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PROGRAMADOLEITOR 



CABO COAXIAL 

OU ANTENA Va e V2 ONDA. 



Sinfcio Amorim Fjlho 



Este ^ um progrsma simples, compati'vel aos micros 
de 1 K byte , onde o radioamador ou projettstas de ante- 
nas podem calcjiar rapidamente multiplo deonda pa- 
ra cdlcuio do comprimento do cabo coaxial a ser usado 
em uma esta(pao transceptora e at6 mesmo compri- 
mento de uma antena para 1/4 ou 1/2 onda. t um pro- 
grama de acesso r^pido, onde a mdquina questiona 
operador sobre qual o servigo 3 ser executado — utilizan- 
do-se de uma linguagem comum, e Ihe responde 
resultando deste di^logo, um bate-papo entre operador 
e m^quina. 

Logo apos voce ter passado o programa, pressione o 
RUN e NEW LINE e aparecer^ um cabegalho do progra- 
ma, seguido da linha abaixo de uma pergunta: "Voce 
quer o c^lcuio do cabo ou antena?". Dependendo de sua 
necessidade, digite um ou outro, mas observe seguinte: 
se voce digitar atgo diferente de cabo ou antena, a md- 
quina rejeitar^ e imprimir^ o seguinte: "Voce digitou er- 
rado, digite CABO ou ANTENA". Num determinado 
passo do trabalho, a m^quina perguntar^ a freqiiencta 
a ser calculada, na qual dever^i ser digitada apenasa fre- 
qijencia direta, pois a m^quina ja estci programada para 
trabalhar em MHz. Exempio: Para dois metros, deverl 
ser dtgitado apenas 144 ou no caso, uma freqijencia es- 
peci'fica 144.75. Se voce digitar 144000 a m^quina en- 
tender^ 144Ghz. 

Observa^ab: Apos ter digitado qualquer resposta ao 
computador, sempre pressione NEW LINE. 

Agora Maos ^ Obra . . . 

8 REM "SXNESIO AMORIH FILHO 1 
963" 

10 PRINT 




-UpCE OUER O 
DO CRBO OU 



C 



as PRIMT 

3e PRI^rr 

4.0 PRIMT " 
RLCUL070- 
KCTENR?" 

S0 XNPunr R« 

B5 PRINT 

66 CLS 

60 IF R«a"CRBO" THEN GOTO 100 

6S IF R«^="RNTENR" THEN SSTQ SS 

70 IF R«<>"CR80>RrcrENR" THEN G 
OTO 800 

75 Cl_S 

76 PRINT 

77 PRINT 

100 PRINT "OK...UOCE OUER O COL 
CULO DO CRBO" 

10 1 PRINT 
10a PRINT 

ia.0 PRINT "QURL. R FRCOUENCIR?" 

1S0 INPUT X 

XSl Ct-S 



130 PRI^^' "-PRRR R FREOiSNCXn D 
E ";X; "HHZ- . ." 

135 LET U=3ed/^X 

14.0 LET Z=U«.&e 

14-5 LET P«Z^4. 

14.S PRINT 

14-9 PRINT 

1S0 PftlNT 

1S5 PRIhTT "^^^mm^^^^^^^^^^^ 



ETROS" 

166 PRINT 

167 PRINT 

168 PRINT 

169 PRINT 
RLCULO*?" 

170 INPUT 

171 CLS 
175 IF 8*: 

180 IF Bft> 

181 PRINT 

185 PRINT 
183 PRINT 
166 PRINT 

RD07 

186 PRINT 

187 PRINT 

188 PRINT 

189 PRINT 

190 STOP 
300 PRINT 

DIGITE 

R" 

_210 PRINT 



. . .0 FRTOR E 



P; " M 



OUER MflXS RL6UH C 



B« 



"SIM" THEN GOTO 40 
"NRO" THEN GOTO 166 



ESRERS TES »<.A» 



TCHRU ..." 

"VOCE DIGITOU ERRFK>0, 
CRBO OU RKTEN 



ai5 

S50 

353 
384. 
S55 
360 
S65 
S70 
376 
377 
278 
379 

3^3 ' 
S84 
285 
390 



GOTO 50 
PRIMT "OK. 



.UOCE OUER RNTeN 



PRINT 

PRINTT 

PRINT "OURL R FREOUENCIft7'* 

INPUT Y 

CLS 

LET RS14.S.5/Y 



LET U< 

PRlWT 

PRINT 

PRI»^ 

"MHZ. , 

PRINT 

PRINT 

PRINT 

PRlffT 



cR^a 



'PRRR R FREOUENCin DK 



;Uj " 



w 



print "o comprimento e de 
pUnt^"^ "^" '-'*' '^^ °"^'^" 



310 PRINT 



315 

" ' R ; 
3^0* 



>R^R 



Y^ 



E O COMPRIMENTO E CE 



METRO S PRRR l>-a ONDfi" 



34.4. PRINT 

350 GCrrO 169 

355 SRUE "Cm^CULB" 

360 RUN 



O 
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PROGRAMA DO MES 



SOMA SINTATICA 





Ao se teclar um programa em um TK82, 83 ou 85 e 
ap6s carreg^-lo em ftta, sempre resta ao usudrio uma 
indagapSo: "Como saber se todo o programa foi teclado 
corretamente ou se a transferencia da fita para o compu- 
tador -foi perfeita?" ... A verdade i a seguinte: Mesmo 
que apenas um caractere seja confundido ou apenas um 
bit alterado durante a carga, estes sSo motives suficien- 
tes para que o programa seja executado com erro, ou at6 
mesmo nao rode na m^quina. 



PROTEJA SEU 
MICRO 







CONTRA: 

■ PICOS DE VOLTAGEM 

■ TRANSIENTES DE TENSAO 

■ RUIDO ELSTRICO 

■ INTERFERENCIA: 
RADIO FREQUENCIA (RF) 

POTiNCIA: ATINGE ATi ?,5 KVA 
TENSAO: 220V OU 1WV 



ZENTRANX 

ELETR6NICA, INDUSTBIA E COMtRCIO LTOA. 

NO BREAK ESTABILIZADORES DE TENSAO 

Rua Ellas Mahfui, 22 ■ CEP 04746 Santo Amaro-6P 
Tel».: (011) 522-2159 e SAS■0^^ 



GlMcutSritai 



A forma que propomos para conferir o conteudo da 
memdria 6 a Soma Sintdtica (efetuada ap6s o programa 
ter sido teclado ou carregado da fita). 

A Soma Sintitica, consiste na adii;ao dos valores de 
todos OS bytes de um programa que fornecer^ um total 
tal, a ser checado todas as vezes que o programa for car- 
regado. Nos nossos programas, a partir do numero seis 
de Microhobby — passaremos a informar a Soma Sintd- 
tica de cada programa, que dever^ ser conferido com o 
valor fornecido pelo seu computador. 

Como programa que executa a Soma Sintdtica nao 
deve alterar o conteudo do seu programa original, opta- 
mos por faze-lo em linguagem de mdquina, o que nos d^ 
ainda a vantagem de uma maior rapidez de execugSo. 
Ademais, impomos tr& condipoes para a execupio de 
um programa: 

1. programa nJo poder^ estarem umasentenga REM, 
pois muitos programas em BASIC, utilizam subrotinas 
em m^quina no REM (Enderego 16 514), 

2. programa nfo estando na Srea de mem6ria destina- 
da ao BASIC, deve ser providenciada uma maneira de 
saiv^-lo em cassete. 

3. programa dever^ ser recolocado na memiria, de 
forma a ser utilizado em 2, 16 ou 64 K RAM. 

Decidimos entao, colocar o programa dentro de uma 
sentenpa REM, transferindo-o para uma local izapSo de 
membria escolhida acima da irea reservada ao BASIC. 

Para criar sua fita com a funggo Soma Sint^tica, voce 
deve executar os seguintes passes: 
1. Tecle programa da listagem 1 para carga de codigo 
hexadecimal. 

LlSTfiOCM - 1 

10 RCH 00000900000000000000000 
00000000000000000000000000000000 
00000000000000000090000000000009 

0000000 

ao L.ET X»a — 

3g LET X«ieS14. 

*0 Xr X«»"" THCN INPUT XB 

BO IF Xi(l)-"S" THEN STO? 

60 PRINf X*(l TO a> ; ' "7 

2j3«^goKe x,Ti6*coDC kt+cohE x»t 

so LET X»X+1 
90 LET X»«X»t3 TO i 
100 GOTO 40 
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2. Execute o programa dando entrada no codigo hexade- 
cimal da listagem 2. 

LISTROCM - a 



CD 


S3 


0F 


ai 


7D 


40 


ED 


SB 


ec 


40 


FD 


21 


O0 


00 


CD 


R9 


4>e 


sn 


10 


40 


ED 


5B 


14 


40 


IB 


CD 


Rfl 


40 


FD 


es 


FD 


SI 


tftf 


40 


CD 


2B 


0F 


Cl 


C9 


C5 


fcfZ 


CD 


sa 


ei 


C8 


4E 


0& 


00 


PD 


es 


33 


18 


Fa 


ai 


87 


00 


CD 


6B 


04 


40 


19 


FD 


ai 


sa 


40 


FD 


7B 


01 


PD 


74 


0a 


FD 


/O 


0C 


FD 


74 


0D 


FD 


SI 


00 


40 


81 


aa 


40 


01 


3B 


00 


ED 


B0 


ED 


4B 


04 


40 


eg 


s 





Em caso de erro, recomece a segunda etapa. 
3. Tecle POKE 16510,0. NEW LINE. Seu programa apa- 
recer^ como a listagem 3 

LISTRGEM - 3 



«. -S-."*^" LN 7257RND SOSUB 7CRND 

P.'.'-ti^SS'^'^ CLERR FRST CLERR S RND 
y^»E2*^^ -^^"^ FRBT a 008UB f LPHIN 
I..£OS 2«r CLEAR W7z. PRUSE 5B QO 
SUB ?. RNDJ CLERR siiRND CLERR -^ 
CLERR T." CLERR 7£ CLEAR ?* CLEAR 
6 RNDS^ND"P GOSUB ■ OOSUB '?. R 
NDTRN 

a0 LET Xf="" 
30 LET X-15514 
40 IF Xf-"" THEN INPUT X« 
S0 IF Xici)«"S" THEN STOP 
S0 PRINT X«C1 TO a);" '*; 
„ 7« POKE X,Tie«CODE X»+CODE X« C 

80 LET X»X+1 
90 LET XfeXtO TO t 
100 QOTO 4.0 

Apague as linhas 20 a 100 e tecle: 

LISTRGEM - 4 

IB SRUe "SOMR- 

90 PRINT "SOMA SINTRTICR-*' J U3R 
16614 

30 PRINT "CONFERE-? Sz-N" 

40 IF INKEY»»"S" THEN GOTO 60 

SB GOTO 40 

60 PRINT "SOHR SINTRTICfl NO EN 
DERECO " ; 

70 INPUT RTP 

80 POKE 16389, INT CRTP/2S6) 
. 22-**°"^^ 16388, RTP-INT tRTPyaSB 

100 PRINT USR 18667 

110 IF INKEV*-"" THEN GOTO 110 

180 NEU 

4. Salve a vers§o final da Soma Sintdtica, teclando RUN. 
Assim ela estar^ pronta para ser usada. 

A versao gravada na fits, ao ser lida corretamente, de- 
ver^ mostrar a seguinte mensagem: 



80HR SINTRTICfl 



asssB 



Para usar esta mensagem, tecle o enderego para o qual 
voce quer baixar o RTP — Ex.: "Se voce tern 16K, 
30000" — programa responder^ com o mesmo valor. 
A Soma Sint^tica ser^ entao obtida com: 

PRINT USR (enderepo que vocSescolheij). 



LIVRARIA 
SISTEMA 

Av. Sao lua, 1 53 - Lj. a - 5 " SobfalojB • Gal«ria Metrdpolfl 
Tsis 257 S1 18 a 269 1603 Sao Paulo SP 

— SEMPRE NOVIDADES 




1 O MICftOCOMPUTADOR NA PEQUENA EMPflESA ■ 
^ 40 PBOQRAMAS PRONTOS E COMENTADOS P/TK82C • 

TKS6-CP200-POR CARLOS LAGTOTTAFILHO 3.B0O, 

' 2 ■ 30JOGOSP TKS2ECP20O-De)ioS»rtoaLma .. . 40OO 

3 - PftOGRAMANDO SEU COMPUTADOR - Josos ■ 

ApJicativos-Utfletarioa . , 5.200 

4 • MICHOCOMPUTADOR NO CONSULTORIO MtDICO ■ 

Lull Gonzaga Ngscimento ....,., , &200 

^5 • GATEWAY GUIDE TO THE 2X81 AND ZXBO - 

70 PROGRAMS ■ ChBrlton 188S0 

.J.6 - THE ZX8 1 COMPANIOM - fteal time giaphics - Monhoc 

Itsling -Maunder ^^^.. . 17 400 

^1 . THE TIMEX- SINCLAIR 1 000 IDEA BOOK Ah 1 13.000. 

8 - UNDERSTANDING MICROCOMPUTERS ■ Pofsonal 

computer 5260 

9 - IMPLANTAqAO DE MICROS £ MINICOMPUTADORES 

COMERCIAIS - Knigln 3.900 

10 ■ MCROCOMPUTADORES P/ APLICACOES COMERCIAtS ■ 

Bardenjr S.390. 

-^n ■ THE BEST OF SYNC • BOcreatiue applicationaprtjgrBma 1*.500. 

12 ■ MICROCOMPUTAOOHES E MINICALCULADORAS - SEU 

USOEMCttMClASEENGENHARIA-RovodosSamos 7.200, 

—13 ■ GETTING ACauAINTED WITH YOUR 2X81 - More *an 

80 programs 17.400. 

14 ■ USER'S HANDBOOK TO THE TflS-BO MODEL in 

COMPUTER ■ Weber 20.000 

I 5 - GETTING ACQUAINTED WITH YOUR VIC20 - Mofe then 

50 programs 1B.0O0 

16 - NOVO ABC DOS COMPUTADORES-Lytel 3.SO0. 

17 ■ 1001 THINGS TO DO WITH YOUR PERSONAL 

COMPUTER - Mart! IB.OOO. 

18 ■ PROGRAMMERS GUIDE TO CP;M ■ LKses 19.000 

,j»19 - TIMEX PERSONAL COMPUTER MADE SIMPlf - 

Guide timei / Sinclair 1000 5.2S0, 

20- INTRODUgAOAOVIStCALC Gartjin 3.640. 



SOLICITE POR REEMBOLSO POSTAL 

CAIXA POSTAL 9280 

CEP; 01051 -SP. 



Lembre-se agora de carregar a tita "SOMA" antes de 
teclar ou carregar seu programa. Ap6s informar oende- 
rego limite da mem6ria utilizada, tecle qualquer tecia 
para limpar a^rea do BASIC, 

Conv^m observar que a Soma Sint^tica checa o pro- 
grama e as vari^veis — caso elas existam — e portanto de- 
ve ser usada imediatamente ap6s a carga do seu pro- 
grama, 

Em programas que iniciam rodando apos a carga, ^ 
conveniente proceder como est^ especificado abaixo; 
onde XXX, YYY e Z2Z sac linhas do seu programa: 

1 PRINT "SOMA SIIMTATICA = "; 

2 PRINT USR (endere^oescolhido) 

3 PRINT "CONFIRA E TECLE NEW LINE 
PARACONTINUAR" 

4 PAUSE 6E4 (6x10*) 

Seu Programa J j 

XXX STOP 

YYY SAVE "Nome do seu programa" 

ZZZ GOTO t 

Ao salvar seu programa, anote a Soma Sintitica junto 
ao nome do programa, no ritulo da fita. Caso o progra- 
ma, ao ser carregado, nao de o mesmo valor, carregue-o 
novamente. q 
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TEMPO DE^REAQAO 



Uma das consequenctas da ingestao de ^Icool pelo ser 
humano 6 a perda do senso de auto-cn'tica: por is3o rara- 
mente urn bebado admite que est^ bebado. 

Imagine a seguinte situa<;3o: Voce como anfitriaio de 
uma festinha de s^bado a noite. Um de seus convidados, 
visivelmente "alto", pega as chaves do carro e resolve 
voltar para casa. £ 6bvio que voce tenta demove-io da 
ideia, mas ele, como esti bebado, nao tem consciencia 
do perigo e teima em sair. Qual a solupao? peg^-lo pela 
curiosidade e desafio f rente a um computador. Uma su- 
gestao: Desafi^-lo a medir a rapidez de seus reflexes em 
um TK. Logo o desafio vai se generalizar e todos os seus 
convidados estarSo competindo para quebrar o records 
(Aqui na redagao, a Nancy e a nossa recordista e 
\A foi aclamada como um exempio da obvia superiorida- 
de feminina). desafio proposto a todos ir^ permitir 
que voce sirva um caf^ sem aijucar ao seu amigo e aos 
demais convidados, dissipando assim, os "vapores ett'li- 
cos", sempre presentes em reunioes de sdbado a noite". 

Ao iniciar o programa, o computador coloca as ins- 
trugoes na tela. Digitando "S", tente come(par. 



ESSE PROGRHMPt Ufll M05TRPIR OS RE- 
SULT fiDOS DE la TESTES DE REflCAO . 



yUftNDO "S" FOR PRESSIONOOO UM 
NUMERO RLEOTORIO XRR" HPRRECER NO 
OURDRRDO RBRIXO.ENTRE COH O NU- 
MERO O MR IS RRPIDRMENTE POSSIUEL 
ISSO RCONTECERR" RTE" O DECIMO 
TESTE SER COMPLETRDO . 
RPOS O GRRFICO.DIGITE NEU L^^4E. 



Carlo! Eduardo R. Sahrtto 

ele desaparece e outro algarismo aparece no quadrado. 
Ao terminer o teste, o computador apresenta os resulta- 
dos abaixo: 



TESTEDERERCRO 



RESUUTHDOS : - 

+ RRPIDO : 0.1 
+ DEURGRR ; a . 4. 



MEDIR 



e. 24-S 



MEDIR + RPPlDfl 
0.243 
POR NRNCY 



T - 

E - 

M - 

P - 



e.2 - 



s - 

E - 

G - 

S - 



> .TEiiTE;^ , 

Fjgura 2 




NUMERO 



Figura 1 

No quadrado, aparecera um algarismo de (3 a 9 e voce 
deve digit^-lo o mais rapidamente possi'vel. Acertando, 



Se voce obteve o tempo mats r^pido (ou se voce foi 
o pri metro), seu recorde ficar^ registrado por toda a 
eternidade. . . (ou seja, 3X6 o computador ser destigado). 
Voce poderd registrar o recorde, gravando outra ve2 o 
programa em outra fita, usando o seguinte comando: 

GOTO 1070 

Ap6s digitar o programa da Itstagem anexa, jogue pefo 
menos uma vez, iniciando com um RUN. Aseguir, grave 
o programa em fita usando o seguinte comando: 

GOTO 1070 

Este programa pode ser rodado num TK82ou TK83 
com expansao; num TK85 ou similar. 



L 
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lO REM 
28 SUOU 
38 LET F =108888 
4.8 DXH N(ie) 
58 CLS 
68 RRND 

78 LET O=10e000 
88 LET S=0 
90 LET R=0 
X00 PRINT RT 4-.®; "ESSE PROGRRMR 
Ufil M05TRRR OS RE ■ 
110 PRINT AT 5,0, ■ 
TESTES DE RERCRO . 
3.20 PRINT RT 9.0;- 
FOR PRESS lONRC-O UM' 

130 PRINT "NUMERG RLERTORIO IRR 
• HPRRECER NO" 

14.0 PRINT "OURDRRDO RBRIXG . ENTP 
E COH O NU-" 

150 PRIfsTT "MERO O MRIS RRPIDRME 
r-JTE POSSIUEL" 

160 PRINT "ISSO RCQNTECERfi" RTE 
• O DECIMO TESTE SER COMPi-ETRDC 



SULTRDQS DE 1 
■QURNDG ■••■s"" 



RP03 O GRRPICO, DIGIT 



17© PRINT 
E NEtJ LINE 

130 PRINT RT 16 . iS ; 

190 PRINT RT 17. ae: 

200 PRINT RT IS . as : 

ai0 PRINT RT 13.16, 

S3& PRINT RT 20,15, 

230 PRINT RT 13 . S; '" NUMERO 

24.0 POKE 164.3-'. 255 

250 PRUSE 3S0Q0 

260 IF INKEY$="S" THEN GOTO 2S© 




27© 
28© 
290 
300 
310 
320 
330 
34-0 
350 
360 

TO 3 
370 
3S0 
390 
4.00 
410 

RO" 
4.2e 



GOTO 24.0 
FOR K=l TO 1© 
PRINT RT IS, IS;" " 
FOR 0=S TO INT ?RND*6e> 
NEXT O 

LET R=INT CRNO*10J 
PRINT RT IS.IS.R 
FOR T=0 TO 100000 
POKE 164.3T,255 

IF CODE INKE>'$=fi+SS THEN GO 
SO 

NEXT T 

LET N (K) =T 

NEXT K 

CL3 

PRINT RT 1 . i; "TESTE D£ fi-RC 



PRINT RT 2,1: 



4-30 PRINT RT 4- , 1 ; " R£SUi_TSD03 



4.4.0 
4.50 
4.60 
4-7© 
4.00 
4-50 

i",R- 
500 
"E" 
510 
520 
530 
54-0 
S50 
S60 

>J .1 ,- 
570 
530 
590 
600 
610 

C>3S 

S4.0 
650 
660 
S70 
6SG 
690 



PRINT RT 5,l;" 

PRINT RT 7,Q:"+ RRP 
PRINT RT 3,S;"+ DE'J 
PRINT RT ia.Q:"MEDI 
PRINT RT 2i.a2;"..T 
PR INT RT S . is : "T " : R 

T "7,i9;"H";RT S.i9;" 
PR INT RT 14- . 19 ; " S " ; 

, RT 16.. 19; "G" ; RT 17' 
FOR 0=2 TO 20 
PRINT RT 0,21;"-" 
NEXT O 
LET R=0 
FOR K=:l TO 10 
LET N tK) = tINT t tW (K 

100B 
IF NCKi <0 THEN LET 
IF N(K3 >5 THEN LET 
LET R=rR+N (KJ 
NEXT K 
LET R=(INT t lR»i00> 



i-;5jr-; 


!-c ; 


R . 


— " 


EST 


ES. 


T e 


.- 19 


P" 




RT 


15, 


19; 


"S" 



IS 



o=r-3 
s=r-j 



( k } 



PRINT RT 7 . ll; Q 

PRINT f^T 3 , 11 ; S 

PRIt-JT RT la . 11 ; R 

LET B^CINT t £G* . 93 *13.! ■ 

LET C=!XNT [ ;S*a . IJ S-IEJ 

PRINT RT 20,17;B 

PRX--iT BT 2.J.7;C 

PRINT RT 11 . IT 
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.0 

■ le 



iE +i 



S ,*H 



Neste veroo 
co/ooue sea filho no 
era aa informatico. 
Ou deixe-o desconsar 
no passodo. 

• Cursos de informdtico especiais para estudontes de 
I9e2?graus 

• Cureos especiais para f6rias, e tamb^m oos sdbados 

• Clube do Micro, equipodo com os melhores 
m i crocom p u todores 

• Polestros, Conferdncios, Semin6rio$ 
■ Biblioteca especial izada 

• Programas educocionais 

• Consul toria e Assessoria Empresarial 

• Curses esp«ciais pora microempres6rios 

Voce pode contar com o CENADIN para mais 

lnforma?6es sem compromisso, em S5o Paulo, 

pelo teiefone 297-4716 ou via correio. 

cei\iNdii\ 

CfMTliO NACIONAL DO DISENVOLVIMENTO DA INKMtMATKA 

Rua Jo%6 Maria Listxxi, 560 - Jd. Poulisfa 
TbI.: {011)267-4716- CEP 0?423- SaoPoulo-SP 



NOME: 

ENDEREgO:, 

CIDADE: .^ 



700 
V10 
720 
730 
74.0 

7se 

760 
770 
7S© 
790 

Dfl- 

see 

S10 

S20 

630 
640 
650 
3SO 
670 
SSQ 
S9S 
900 
91G 

93ei 

94 

'350 
960 
970 
9SS 
990 

1010 
'..020 
1^03 
J. ©4.0 
J10S0 
.1.06 
1073 
i03P 

^09r- 



LET D= (C-B) ^3S 

FOR 0=1 TO 10 

LET E=(N(OJ-BJ^D 

FOR Z=2 TO E+1 

PLOT 4.3-1- (2 »0) ,Z 

NEXT Z 

NEXT O 

IF R<F THEN GOSUB 35© 

IF R<F THEN LET F=R 

PRINT RT 16,0; "MEDIR - 



RRPl 



PRINT RT 13 .S; F 

PRINT RT 20,1; "POR " ; R¥ 

IF INKEY$<>"" THEN GOTO 4-0 



GOTO 

LET R 

LET B 

LET C 

LET D 

LET E 

PRINT 

PRINT 

FOR O 

NEXT 

LET R 

PRINT 

PRINT 

PRINT 

FOR O 

NEXT 

IF P < 

INPUT 

IF LE 

FOR O 

PRINT 

r-4E.XT 

RETUR 

STOP 

SRUE 

GOTO 

srcp 



620 

= B 

* = ""B UOCE QBTEUE H" 

4="MEDIR + RRPIDR" 

Sf = "eWTRE COM NGi^tE" 

*=■ 

RT 16,0: E* 

fiT S0 , ; E$ 
=0 TO 20 
O 
= R-i- 1 

RT iS . 0; C$ 

RT 16,0, B$ 

RT 20 . ; D$ 
=0 TO 20 
O 
3 THEN GOTO 390 

R '^ 
n" B$;-10 THEN GOTO 1300 
.116 TO a© STEP S 

RT O , ; e t 
o 

N 

"RERCRg" 
4.G 
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QUEBRA-CABEQA 




@^ MENSA 

International 



L.G.M.: 

MENSAGEM DE VEGA ? 




A id^ia de contactar civiliza^oes de outros "mundos" 
n§o 4 recente entre os homens. Deixando de lado as 
crendices populares e as mediocridades publicit^rias, a 
imaginapao humana chegou a produzir muitas obras so- 
bre esse assunto. Cldssicosliterdrioscomo"Micr6megas", 
de Voltaire; "Historia Comica dos Estados e Imp^rios da 
Lua e do Sol", de Cyrano de Bergerac e "Da Terra i 
Lua" de Julio Verne sac, juntamente com um grande 
numero de "Science Fiction", bons testemunhos de boa 
qualidade (Figura 1 ; 




RenatD da Silva Olivaira 

Tamb^m nos meios de comunicagSo de massa, s§o 
inumeros os exemplos da procura de outros mundos, co- 
mo a novela radiofonica "Guerre dos Mundos" narrada 
per Orson Welles , no in I'cio do s^culo, Esta novela te- 
ve maior repercussao que os "contos de fadas" cinema- 
togr^ficos "Close Encounters" e "E.T." de Steven 
Spielberg que, per assim dizer, invadiram facilmente a 
Terra aproveitando-se da boa vontade das pessoas. 

At^ mesmo o "Gran Circo EEUU" produziu, bem ao 
seu estilo, um famoso relatorio sobre possi'veis seres ex- 
traterrestres no famoso "Livro Azul" da U.S. Air 
Force. 

Como n§o poderia deixar de ser, os cientlstas produzi- 
ram, tamb^m, alguns trabalhos (provavelmente os mais 
s6rios e audaciosos), sobre sua velha ideia, assim que sur- 
giram oportuntdades propi'cias. Desde grandes equiVo- 
cos, como OS "Canais Artificials de Marte" e os "Little 
Green Men (L.G.M.)" at^ as mensagens levadas pelas 
sondas PIONER X e XI e VOYAGER ) e 1 1 . 



Figura 1 
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iFigura 2 



Esta sefio conta com a colaborafSo dos membros da MENSA INTER. 
NACIONAL — brasilerros e estrsngeiros resitlentes no Brasit. 

A MENSA rf ums orsanizagSo sem fins lucrativos. originiria do Inglater- 
ra e Que conta com mKhans de membros espalhados pelo mundo inteiro. 
£ntre sites, podemos citar liase A»imov, Arthur C. Clark*, Cliva Sinclair 
e o recentemente falecido R. Buckmintttsr Fullsr fo poeta Que inventou a 
Cupula Gsodtiic*). 

Os principals objetivos » bases de atuafao da H^BNSA sao: promover 
e encarajar o desenvolvimento da inteligSncia humana para benefi'cio da 
humanidade, incentivar a pesquisa sobre a natureza e pramover urrt tm- 
bienta socialmenta estimulante para saus sdcios. 



Para o ingresso na MENSA i necessiria apenas que o Candida to se 
submeta a um teste homologado pela MENSA INTERNATIONAL, sups- 
randa o nivel m^dio da intaligtncia de 98 par cento da humanidade. 

InformagSts a respaito, podem ser obtidas atravis de carta enviada para 
esta sefio, no seguinte enderego: 

MICROHOBBY 

SEgAO QUEBRA-CABEgA 

Rua Bahia, 1049 

Cep 01244 -Sao Paulo 
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Provavelmente, urn dos mais interessantes empreendi- 
mentos cienti'ficos visando a comunica(;ao com possi'veis 
seres extratetrestres, foi a mensagem enviada ao espago 
com o radiotelesc6pio de Arecibo em Puerto Rico (o 
maior radiotelescopio de espelho esf^rico do mundo, 
com cerca de 305 metros de diametro). 




Figure 3 

mteresse dos cientistas em contactar com outras 
(possi'veis) civilizapoes nao 6 gratuito. 

Apesar de altamente improv^vel, a pequena chance de 
sucesso justifica o esforgo desprendido. Atualmente, 
atrav^s de uma equaspao simplificada, obtida pelo radio- 
astronomo Frank Drake na d^cada de 60, estima-se que 
dentre aproximadamente 200 bilhoes de estrefas de nos- 
sa gal^xia, cerca de urn milhao (menos de 0,001 per cen- 
to) tern condicoes de abrigar civilizagoes tecnologica- 
mente desenvolvidas. Mesmo sendo otimista esupondo- 
se que todas elas sejam "povoadas", a probabilldade de 
conseguirmos nos comunicar i ainda desprezivetmente 
pequena. 



N - R * . fg . fp . ne . f i . ft . L 



Equapao de Frank Draka 



ond«: 

N = 
R* = 

•b = 

fp = 
ne = 
«• = 

fi = 
ft = 

L = 



n{im«ro de civilitt^ das Mcnolfiqicn ds Galtxia 
Uxa mMit de formaf 3« de *itr«l» da Galaxia 
fra^io de estrelas com condifoes de po»uir sfstamas plarwtjria$ 
fra^ao de estrelas que possuein urn sistems planetirio 
numsrQ de planetaj habitiueis por siitema planetirio 
probabilldade de lurgimanto de vtda num planeta 
fre^BO de planeta) haltitiveis com vida inteligente 
probabilldade de uma civilizagio desenvolver tecnolotia 
longevklade de uma civiliza^ao 



Figura 4 

De certo mode, estamos fazendo — com algumas 
desvantagens -, a vez do macaco dos versos de Sir 
Arthur Eddington, transcrito no ini'cio deste artigo. O 



CONVERSE 

COM 

IPROFISSIONAi: 



SOFTWARE 

Linha completa 

de software apticativo. 

Desenvolvimento cte software 

espectfico para sua 

necessidade. 

lUntia completa deprograma 

para TK e CP-200 



SHOW nOOM E YENDAS: 



ASSESSORIA 

[Antes da escoifia de seu micro 

nos diga qua! o seu problema 

N6s o orientaremos 

na escoiha do micro CEFITO 

para voc6 

ou sua empresa. 



CURSOS 

BASIC I, BASIC AVANQADO 

Excelente material didAtlco. 
no mftximo 10 alunos 
por classe e 1 micro 
para cada 2 alunos. 



VENHANOSVISITAR 

AV EUStBIO MATOSO, 654 ■ CEP 05423 - SP 
. BEM EM FRENTE AO SHOPPING CENTER ELDORADO 

FONE: 813-3355 



macaco pelo menos sabia que locar musica 6 possi'vel, 
enquanto nbs (humanos), nao sabemos sequer se exts- 
tem outras civilizacpoes al^m da nossa. 

Se voce teve paciencia de ler tudo at^ esta linha, ao 
menos justifique seu trabalho iendo ainda as que se se- 
guem. Voce ver^ que tudo se relaciona ao tema de nos- 
so "Quebra-Cabepa" deste mes: "L.G.M. ou Mensagem 
deVega?". 

Citamos, de passagem, o equi'voco cienti'fico dos 
"L-G,M.(sj". Essa sigia surgiu para os quatro primeiros 
pulsares descobertos: L.G.M. ; LGMj, LGMj e LGM4. 
primeiro deles foi descoberto em meados de 1967 
por uma jovem radioastronoma, Jocellyn Bell, atraves 
do radiotelescopio da Cambridge University, Esses 
"objetos" sao notados, devido as intensas e regulan's- 
simas emissoes de micro-ondas que deles nos chegam 
(em geral cerca de uma por segundo). A esperang:a qua- 
se religiosa dos astronomos em detectar vida fora da 
Terra, fez com que batizassem - oficiosamente — , as 
quatro primeiras dessas fontes, de ' Little Green Men", 
pensando tratar-se de "sinais inteligentes". Logo, po- 
r^m, muitos outros pulsares foram descobertos e o equi'- 
voco "L.G.M." foi desfeito. Hoje, sabemos que os pulsa- 
res sao provavelmente, estrelas neutronicas em alta rota- 
gao. 

Essa estoria ilustra, muito bem, a boa vontade e o 
entusiasmo dos cientistas em admitirem como possivel 
a comunicat,ao com civilizagoes extra-terrestres (se elas 
existirem, 4 claro!). 
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+ 40°. 



+ 20O' 



L.G.M. . 

(5 Quebra-Cabega deste mes surgiu de uma esto- 
ria semel hints: 

"\im dos nossos Feitores, o Sr. Nabar Rosenthall, 
constmiu em seu sitio proximft a pequgna'cidatte de 
Sao Torn*, um radioielesc»pjo- "caseira", a qual 
tern, acoplacto, um TK85. No primeiro dia de-setem- 
bro d%ste ano, precisamente entre as 21 e ^ horas, 
ele fecebeu uma sSrie de pulsos de micro-ondas, pro- 
venientes de um ponto do cSu cujas coordenadas 



L^o^Mwoo: ^ = N 38° 46' 
Asceilpo Rata: a ^ 18 h 36' 8" 



Essas sao, exatafnente, as coordenadas da estre- 
la Cti-Krae (VegaJ. 

Com a jntilrg^ncia e perspicacia caracterisficas de 
nosso$rle»|M|fcKp Sr. Nabor percebeu que, s« .as- 

" IIIIP* ~ durante os quais recebia os 

pulses "•^■ppl (""1* * aos pen'odos "mudos.'' 
entre os plini*associasse o valor f) (lero), obteria 
um» sequencia de uns e tpros, aparentemente rego- 
lares.que se repetiria, mais ou menos a cada uma 
hora. 

Assim sendo, o Sr. .Nabor, por nao ter ainda con- 
cluso6s conwiitcentes.resolveu nos escrewer para que 
pudSssemos auxllia-lo a chega'r a tal conclusao e 
tambim solicit^u-nos^ que tentassemos obter infor-. 
ma^oes com outros leitores, a respeito da sequencia: 
"se ela ^ ou nao uma mensagsm e em casa positivo, 
■ qual oseu significado?". 

A rseqiiencia estS listada a seguir e o Quebra-' 
Cabepa cons<;tB em— com o auxilio do TK — ,des- 
cobrir se ela 6 um novo equi'vocodo tipo "L.G.M." 
ou se i rqaimente unja mensagem«"E.T.", prove- 
niente de Vega. Se a respesta for positiva, voces 
devem decod*fJci-la e iriterpretar o seu sigjiificado. 

A ordem em que os-^phos (Us e 1's) foram rece- 
bidos sao indicados pelas setas no iriicio e no fim da 
IRtagem. , 
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Aqui est^, num artigo escrito por nossa analista de 
Software, a resposta da carta escrita por nosso leitor 
Fernando Jos6 Strobel, que pedia informagoes a respei- 
to de gravapao de fita de dados. Urn pedago do texto da 
carta era o seguinte. "Pecpo que a sua revlsta publique 
um artigo, explicando a armazenagem de dados em fita, 
como um exempio bem complexo, com fichas Idgicas 
efichss fi'sicas". 



Para resolvermos sua diivida a respeito das fungSes 
de armazenamento para o TK85, fizemos um programa 
utilizando os comandos DLOAD, DSAVE, DVERIFY 
e o mesmo pode ser feito para os comandos DHLOAD 
e DHSAVE, mas em Hi-Speed. 

Atravfe desses comandos, 6 possi'vet o armazenamen- 
to e a recuperapao de informagoes numa fita cassete, 
permitindo assim, o uso de um grande arquivo de dados. 
Esses comandos sso utilizados com a funcpao USR, 
acompanhada do enderego tnicial da subrotina, em lin- 
guagem de m^quina do comando a ser utilizado. 



COMANDO 


E^DERECO 


FUNgAo DE CADA 


INICIAL 


COMANDO 


DSAVE 


8288 


Gravapao do arquivo 


DVERIFY 


9816 


Verifies agravacao 


DLOAD 


8305 


L§ a fita e armazena no buffer 

indicado 


DHSAVE 


9M)8 


Grava na fita em Hi-Speed 


DHLOAD 


9189 


Lea fita em Hi-Speed 



Para meihor compreensao, dividimos o programa em 
v^rias partes, portanto, digite todas as linhas exatamente 
como estSo, porque elas formarao, no final, o seu 
programa mestre. 

programa comega armazenando os enderegos de ca- 
da subrotina, em linguagem de cada comando: 



PROGRftHR 1 

♦ LET D5flUE=SS88 

5 LET DUERIFV=9Sie 

e LET DL00D=3-30S 

7 LET DHS)=lUE=QeeS 

8 LET DHLOftD=S189 



Figura t 



Vamos inicialmente criar uma ficha fi'sica com 10 fi- 
chas Idgicas. Mas, o que ^ uma ficha fi'sica? E uma ficha 
Idgica? 



AS FUNQOES 
"D" DO TK85 



Nancy Miti« Ariga 

Suponhamos que voce deseje um arquivo com nomes 
e telefones. Um determinado nome com o seu respective 
telefone, formam uma ficha idgica. Um grupo de fichas 
Idgicas {no nosso caso 10) formam uma ficha fi'sica. 

1 2 10 

^—" \/ "^ \ / ^ V 

















nonw 


uMsna 


nome 


t«l«fon« 


nom« 


t«l«fon« 



V 



V 

ficha Idgica 



y 



y 



ficha fi«« Figura 2 

Digitando o programa 2, voce criar^ uma ficha fi'sica 
que, posteriormente ser^ gravada. Cada ficha Idgica, cen- 
ter^ um nome com no m^ximo 15 di'gitos e um telefone 
com no m^ximo 8 di'gitos que serao armazenados no 
buffer, formando a ficha fi'sica (B$) que poder^ conter 
no m^ximo, 230 bytes. 

1 ficha Idgica -^ 15 bytes do nome + 8 bytes do 
telefone = 23 bytes- 

1 fichas Idgicas -*■ 230 bytes 



PROGRRHfl 3 



REM 
CL.S 
DIM 
DIM 
OXM 
LET 
FOR 



3.000 

3.8&S 
X0"7'0 

xasQ 

IIXS 

lias 

114.0 
1150 
11G0 
1170 
1180 
11S0 
2.200 
IS 10 
R" 

lai* 
LiNe>- 

1S20 XF 



CRIRC«0 DE FXCHR FXSTCR 



B$ 1230} 

N« (15) 

T*SSJ 

R=l 

X=l TO IS 

PRINT "NOfME="; 

XNPUT H* 

PRXHT N^ 

5CROLi_ 

PRINT "TELE;F-="; 

INPLTT T* 

PRI^rr t* 

SCROLL. 

print 

LET C*=N*+T« 

LET B*CR TO R+LEN C*-l}=C;ti 

LET RsR+LEN C* 

NEXT I 

SCROLL 

PRINT "FICHR FISXCfi COHPLETT 



SCROLL 
PRX».rr "P. 



-GR«i.»«R D-XGITE CNEU 



INKEY* = "" THEN GOTTO 1^39 

Figure 3 
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Digits RUN e aparecera na tela: 
NOME = 

Figure 4 
Digite um nome e NEW LINE; 

NOME=HICROHOeBY 

TELEF. = 

Figure 5" 
Digite um telefone e NEW LINE: 

NOME =M ICROHOBBY 
TELEF . =S5& . 834.S 

HOMES 



Figura 6 



eassim por diante. 



Agora que voce possui uma ficha f I'sica em seu buffer, 

vamos grav^-lo. Digite o programa 3, que possui o co- 
inando DSAVE. 

PROGRflMR 3 

aOCe REM GRRUfiCRO FICHR PTSlCfl 

aeos CLS 

sees PRINT "P.-eRRURR RPERTH RECD 
RD DO GRRUR-DOR E NEW LIMc" 
2307 IF rNKEY$ = "" THEN GOTO 2£i07 
aOi© LET Z=LEN Bi 
SOae LET Z»="B" 

aese let bc=usr osrve 

20*© SLOW 

aoso IF Bc=e thbh print rt ■7,3;" 

OK" 

2060 IP BC<>*S then PRINT RT 7,3; 

"ERRO=" BC 

S070 PRINT "NOyR GRRURCRO f5-'NJ7 

20©e IF INKEY* = '*5" THEN GOTO 2*0 


2385 IF INKEY» = "N" THEN GOTO 3e«t 
O 

asse GOTO S030 

Figura 7 



Em Z est^ definido numero de bytes do buffer es- 
colhido e que serd gravado. Z$ seleciona o buffer que se- 
r^ gravado (no nosso exempio ZS = "B", porque em B$ 
estSo armazenados os dados da ficha f fsica). 

BC 6 uma vari^vel qualquer, criada para utiiizarmosa 
funfSo USR, onde ap6s a execu(;:§o do comando 
DSAVE, serd armazenado □ codigo de reportagem. {Ver 
c6digo de reportagem, pagina 29.7 do manual do TK85). 

Certifique-se de que iVlfC do TK est^ conectado 
com MIC do seu gravador, aperte o RECORD e digite 
NEW LINE, comando DSAVE serd ativado e a primei- 
ra ficha f fsica estar^ sendo gravada. 



Se 3 subrotina DSAVE foi realizada corretamente 
(BC = 0), aparecerS na tela um "OK", Caso contrcino, 
codigo de reportagem aparecer^ na tela (consulte ma- 
nual do TK85, pagina 29.7). 

IMPORTANTE; Apos o t6rmino de cada comando de 
armazenamento, devemos retornar ao modo SLOW, por- 
que o computador entra no modo FAST com inicio da 
subrotina, em linguagem de m^quina. 

Agora que voce gravou em sua fita cassete, certifique- 
se que sua gravatpao foi feita corretamente, digitando 
programa 4. 



PROGRRMR 4- 

3000 REM UERIFICRCRO DR GRRURCflO 

3005 CLS 

30 10 PRINT "P.'UERIFICftCftO REBOBI 

NE R FTTR" 

30S0 PRINT "fiPEFiTE O PLRV £>0 SR« 

URDOR" 

3030 PRINT "DIGITE NEW LINE" 

3O4-0 IF INKEV* = "*' THEN GOTO 304-© 

3050 LET BC=USR DUERIFV 

3050 SLOW 

3063 PRINT 

3065 IF ©C=:S THEN PRINT "OK" 

3070 IF BC<>0 THEN PRINT *'ERRO = " 

;BC 

30SO PRINT "NOVR SJERIFICftCRO CSx 

N) ?" 

308S IF INKEY»="S" THEN GOTO 300 



3033 IF INKE\-»="N" THEN GOTO MEN 



U 

3100 GOTO 30B5 



Figura 8 



Conecte EAR do TK85 com o EAR do seu grava- 
dor. Diminua um pouco volume do gravador, aperte 
PLAY e digite NEW LINE, comando DVERIFY foi 
ativado, atuando como se estivesse lendo a fita, mas nSo 
armazena os dados na RAM, permitindo a voce, verifi- 
car se as informagoes foram gravadas corretamente sem 
destruir o conteudo da RAM. Ap6s a execu(;;5o da subro- 
tina aparecer^ na tela, o codigo de reportagem. Se apare- 
cer c6digo de erro diminua, pouco a pouco, o volume 
do gravador at^ surgir um "OK", significando que a gra- 
vagao foi boa e que a fita serS lida neste volume de som; 
caso contr^rio, ser^ informado erro. 

Deseja outras fichas fi'sicas em sua fita cassete? Ela 
pode conter inumeras fichas ffsicas, que devem ser 
gravadas uma apos a outra. Sua fita ficar^ assim: 



o^ y^.^ &^ </ Figura 9 



■0?' 
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GAP d urn espa^o entre suas fichas fi'sicas de aproxi- 
madamente cinco segundos ou mais, antes que a segunda 
fichafi'slca seja lida. 

Vamos utilizar as informa^oes armazenadas em sua fi- 
ta cassete, atraves de uma pesquisa. Digite o programa 5. 



PROGRRMfi S 

4.Bee REM pesou isft 

4-005 CLS 

4-010 PRINT RT 7,3;"UOC.E OESE^^ifi • " 

4>0£0 PRINT ST 3,3i"a. NOHE " 

4.030 PRINT RT 11,3; "2. TELeFOME^ 

4-0+0 PRINT ftT 13,3; "3. REi_ftCftCk & 

OS NOHES COMECR- DOS COH O 

ETERHINRDR J_ETRR" 

+050 IF INKEV*="1" THEN GOTO 500 



4-060 IF INKEV$="2' THEN SOTG 600 



+070 IF INKEV4='-3" THEN GOTO 700 



+030 GOTO +0SO 

5000 REM PESOUISR OE NOME 

50OS Cl-S 

5010 PRINT "OUflL O TELEFONE ^" 

5O20 INPUT T» 

5030 PRINT T» 

5035 PRINT 

S0+0 PRINT "REBOBINE ft FXTft" 

5050 PRINT "ftPERTE O PL.RV DO GRR 

URDOR" 

5060 PRINT "DIGXTE NEW L.INE' 

sees IF INKEV»="" THEN SOTO 50oS 

5070 (_ET Z=0 

S07S DIM BS(a30} 

50S0 LET Z*="B" 

5090 LET BC=USR DLORD 

5095 IF eC=l THEN GOTO S555 

5100 IF eC<>0 THEN SOTO S500 

51S0 FOR 1=1 TO 230 STEP 23 

5130 IF B1>fl-^15 TO I+22J =T« -TtiEl^ 

GOTO 5&00 

51+0 NE.KT I 

5300 GOTO 5070 

5500 SLOW 

5510 PRINT ■'ERRO = ";BC 

SSI'S PRINT 

55S0 PRINT "RPERTE STOP DO GRPVfl 
DOR" 

5530 PRINT "RPERTE NEU LINE P.-' N 
OUR PESOUISR ' 

55+0 IF INKEV'* = "" THEN GOTO SS+0 

5550 GOTO +000 

5555 SLOW 

5656 PRINT 

5557 PRINT 

5558 PRINT 

5559 PRINT "NfiO FOI ftCHR&O ESTE 
TELEFONE NR FITR" 

5560 PRINT 

SS62 PRINT "NOUR PESOUISR fS.-'Ni ? 

556+ IF INKEVt = "S" THEN GOTO 4^00 



5565 IF lNKEYt="N" THEN GOTO MEN 
U 

5566 GOTO 555+ 
5600 SLOW 
5605 PRINT 

5610 PRINT '=RPERTE STOP DD GRRUfl 

£>OR" 

5615 PRINT 

5630 PRINT "NOHE = "iS*iI TO X-t^X+.i 

5630 PRINT "TELEFONE =";e*<X^ is T 

O 1+22) 

55+0 PRINT 

56 +S PRINT "UOCE DESEUft NOUh PES 

OUISft ■? ■• 

56+6 PRINT " iB.^t4i " 



S650 IF INKEY*="S' THEN GOTO +0^ 

5660 Xf INKEV4="N" THEN GOTO HEN 

U 

5670 GOTO 565© 

t900 REM PESSUI6R DE TELEFOHS 

e^es c-LS 

6010 PRINT "OURL O NOME -^ " 

6015 DIM Nt(lS) 

6020 INPUT N* 

6030 PRINT N* 

603S PRIhfT 

&O+0 PRINT "REBOBINE R FITfi" 

6050 PRINT "RPERTE O PLRV DO GRR 

URDOR " 

6060 PRINT -DIGITE NEW LINE' 

5S70 IF INKEY* = "'- THEN GOTO 6370 

ti0Q0 LET z=a 

6085 DIM B4C230J 

6090 LET 2*="B" 

6100 LET BC=U6R DLORD 

6103 IF BC=i THEN GOTO 950© 

6110 IF BC-<>0 THEN GOTO 5500 

5115 FOR 1=1 TO 230 STEP 23 

6120 IF B*tl TO I+l+i =N* THEN GO 

TO 5600 

S130 NEXT I 

61+0 GOTO 6030 

6200 SLOW 

6210 PRINT 

6220 PRINT 

6230 PRINT 

62+0 PRINT "NRO FOI RCHRDO ESTE 

NOME NR FITR" 

6300 PRINT 

6310 PRINT "NOUR PESOUlSfi iS^Nf? 

6312 IF INKEY*="S" THEN GOTO +O0 



631+ IF INKEYt="N" THEN GOTO MEN 

U 

6330 GOTO 6312 

7000 REM PESOUISft POR LETRfl 

7005 LET N=l 

7007 DIM N«(1000> 

701O CL5 

7020 PRINT "NOMES COMECRDOS COM 

R LETRR : " ; 

7030 INPUT L* 

70+0 PRINT L* 

70+5 PRINT 

7050 PRINT "REBOBINE R FITR" 

7060 PRINT "RPERTE O PLRV DO GRfl 

URDOR" 

707© PRINT "DIGITE NEU LINE" 

70S0 IF INKEY»="" THEN GOTO 7030 

7090 LET Z=0 

7095 DIM B% (230 J 

7100 LET Z*="B" 

7110 LET BC=U5R DLORD 

7115 IF BC=1 THEN GOTO 3500 

7120 IF BC<>0 THEN GOTO 5500 

7130 FOR 1=1 TO 230 STEP 23 

71+0 IF B*(I.l=L* THEN GOSUB 6000 

7150 NEXT I 

7160 GOTO 7090 

7200 SLOW 

7210 PRINT "ERRO=";BC 

7220 PRINT 

7230 PRINT "RPERTE O STOP SXi GRR 

URDOR" 

72+0 PRINT "DIGITE NEW LINE P..-NO 

(.JR PESOUISR" 

72+5 GOTO +000 

©000 LET N*{N TO N-I^22J=S4(I TO I 

+22) 

6100 LET N=N+23 

3200 RETURN 

6500 CLS 

3503 SLOW 

aSOS IF N=i THEN GOTO 9&0O 

S&09 FOR U=i TO N+22 STEP £3 

«510 PRINT N* l"U TO U+22J 

eS£0 NEXT U 

S620 GOTO 56+0 
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96aa PRINT 

9602 PRINT 

9&e3 PRINT 

9605 PRINT "NfiO FOI ENCONTRRDO N 

ENHUM NOME COHECRDO COM ESTfi 1_E 

9610 GOTO 564-S 

Figura 10 



A vari^vel Z foi criada e zerada. Nela ser^ armazenado 
numero de bytes lidos, que serao armazenados no 
tjuffer, apos a execugao do comando DLOAD.ZS indica 
buffer em que serao armazenadas as informagoes lidas 
na fita. 

Ao ativarmos o comando DLOAD, o computador co- 
loca no buffer a primeira fi(*a f fsica e por cinco segun- 
dos podemos manusear os dados antes que a outra ficha 
entre no buffer. 

programa 5 possui tres tipos de pesquisa: 

1 . Procura o nome cujo telefone voce forneceu em T$. 

2. Procura o telefone de um determinado nome, indica- 
do em N$. 

3. Lista OS nomes comegados com uma determinada le- 
tra, indicadaem L$. 

Mas voce pode criar outros tipos de pesquisa. Procure 
entender como o comando DLOAD funciona e como 6 
feito a pesquisa; depois, deixe livre sua Imaginagaol 

Cada ficha Idgica cont6m 23 bytes, sendo os 15 pri- 
meiros bytes, reservados para o nome e os outros 8 
bytes, para o telefone. 

Assim, se voce deseja saber o telefone de "X", o com- 
putador separa as ficKas Idgicas (23 em 23 bytes) e com- 
para os 1 5 primeiros bytes com o nome que est^ em N$. 
Se forem iguais, aparece na tela o nome e o respective 
telefone; caso contr^rio, analisa a proxima ficha Ibgica. 
Se este nome nao for encontrado nesta ficha ffsica, ini- 
cia a leitura da pr6xima ficha f fsica e o mesmo processo 
se re pete. 

Caso chegue ao fim do arquivo de dados sem achar o 
nome, aparecer^ na tela, o seguinte: 



NRO FOI RCHRDO ESTE NOME NR FXTR 

Figura 1 1 

mesmo processo ^ feito para a pesquisa do nome 
cujo telefone voce informou em T$. A unica diferenga ^ 
que sao comparados os oito ultimos bytes de cada ficha 
J6gica, com o telefone em T$. 

Na pesquisa de nomes comegados com uma letra (L$) 
6 comparado o primeiro byte de cada ficha tdgica com 
LS. Se forem iguais, esta ficha I6gica 6 armazenada em 
um outro buffer N$; caso contrario, analisa a pr6xima 
ficha i6gjca. 

Quando o c6digo de reportagem em BC acusar "fim 
de arquivo", as informagoes que estao no buffer N$ sao 
imprimidos na tela. 

Para completar o seu programa, digite o programa seis 
que4 o MENU. 



PROGRRMR 6 

1JS REM HEMU 

12 l_ET KEMU=1.3 

t3 CI_S 

IS PRZHT FTT &.B;" 

ae PRI^tT rt s^s':" 
30 pR3:^fT prr 2.8,5; 

HR FXSXCR" 

*a PRXKT HT ia»si 
CHR FISXCR" 

Sa PRXKT RT 1A,5; 
GRRvJ»RCRO" 

6« PRXNTT RT S.6,5,' 
FICHR UOGICO" 

"70 IF XNKEV* = "1" 


8e IF INKEV*="a" 
Q 

aa IF XNKEV*="3" 

a 

les IF I»«tEY *=*"*" 


lie GOTO 70 



HEW U" 
UQCE DESeUH-. " 
"2.. CRIRR FXC 

"a, SRRl.^Re% F-x 
THEN Gonro i.ea 

THEN GGTFO 3»« 
THEM GOTO J3a« 
THe« GGFTO jKSS 

Figura 12 



Agora que voce sabe como os comandos de armazena- 
mento e recuperagao de dados funcionam, crie outras fi- 
chas I6gicas e outros programas-pesquisa. 

O 



-DtSPONiVEL PARA O S£U- 

TK, ZXai, CP-200 E NB. 
SOFTWARE E HARDWARE 
EXCLUSIVOS NO BRASIL. 



SOFTWARE 



• SCREEN - 87 rotlnas psra Qoran- 
ciar a tela, co<n lun^dea e eleltos 
ssnsaelanais. Crf t4.900,00. 

• DOUBLE ■ Dobra a velocldade do 
SLOW, sam "Ptscar a tela" 

Cr» 5.600,00. 

• MUSIC - Utillza a salda MIC do 
^ say micro, f>ara a salda da scxn. 

Naceaslia ampllficador extemo. 
Cit 4.950,00. 

• QUtCK ■ CarrsQa, salva e verltlca 
proflfamas em fita, com o dobro 

y da velocldade nomial. 
Crt 14.600,00. 

• COMPILADOn BASIC • Roda 
seus proaramas em BASIC, 60 

' vBzes mafs riptdo. 
Cr» 26.100,00. 

• EDITOR/DISASSEMBLSR • A lln- 
^ Ouagsm de m Equina sob seu co 

mando. Cr»24.»»,CI0. 



HARDWARE 



• K-T CONTROLLER - Controla o 
motor do gravadof automatics- 
mente. Cr» 16.500,00. 

• RESET . Ctiave "resBt". 
Crt 4.950,00. 

• INVERT ■ InversSo {com ctiave) 
da Imagsm. Cfl 5.200.00. 

• INTERZOO ■ Permlte que o CP-200 
utilize a TK PRINTER Ou Outios 
perifiricos. Crt 16.800,00. 

• JOY-FACE . ConexSo para JOY. 
STICK. Crl 14.300,00. 

• EXTENSOR - Afasta a expansao 
de mem6ria, evftarido os deallQa- 
mentos constantes. 

Crt 24.750,00. 

• MONrrOR ■ ConexSo dirata do 
seu micro a qualquer monitor tte 
video. Crt 24.900,00. 



ELDORADO COMPUTADORES E 
StSTEMAS LTDA. 

Rua VIscondede Plraja,351 LJa. 213/214 
22410- iPAN£MA-RJ Tel.; (021) 227-0791 

O SOFTWARE n6s REMETEMOS PARA TODO O BRASIL. 
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A AMPULHETA ELETRONICA 

Com este programa abrimos a se(?ao RELOGIOS, on- 
de pretendemos apresentar alguns programas para mar- 
car o tempo no seu Apple; nada melhor do que come^ar 
com um rel6gio bem primitivo:a ampulheta (programas 
simutando rel6gios mais antigos, como o rel6gio de sol, 
sarSo bem aceitos pela nossa reda?§o). Com a colabora- 
Qcio dos leitores iremos evoluindo at^ os modernos rel6- 
gios digital-anal6gicos. 

Se voce nunca viu uma ampulheta, nem mesmo na 
abertura do "Tunel do Tempo", eis como ela se parece: 




J^^— '■*■■'-: iV. J - f^ ^^-vaC-y-j-. 



tempo que a areia leva para passar da parte de cima 
para a parte de baixo, completa um cicio. 

As primeiras ampulhetas, surgiram no s^culo I depois 
de Cristo, contemporaneamente ^s clepsidras, ou rel6- 
gios de ^gua. Chegou-se a desenvolver ampulhetas bas- 
tante grandes, com ciclos de at6 uma hora. Nos s^culos 
XVI e XVII eram comuns ampulhetas de 15e 30 minu- 
tes nas igrejas, usadas para marcar o tempo dos sermSes. 
Para melhor medir o tempo foram feitas ampulhetas 
com as metades superiores e inferior cili'ndricas, de tal 
modo que a altura da areia fosse proporcional ao tempo 
passado, a portanto pudesse haver marcas de minute em 
minuto, 3t§ um m^ximo de vinte minutes. Muitas am- 
pulhetas tinham um eixo no centro, para queao fim de 
um cicIo, se pudesse rod^-las a cometpar de novo, 

O Programa 

Linhas 1180-1230 - Essa parte do programa POKEeia 
uma subrotina em linguagem de mdquina, para simular 
som da areia caindo. 

Linhas 250-270 - "Perguntam" quanto tempo o pro- 
grama deve cronometrar e o local de origem da areia. 
Perceba que para cada tipo de areia hS um valor de D e 
X, que serSo usados na rotina de som, para produzir 



sons diferentes para cada tipo de areia. Sinta-se^ vonta- 
de para mudar os locals de origem das areias, mudando 
tamb^m, conforme necess^rio, as linhas 280-31(3. 

Linhas 330-980 - Formam o foop FOR-NEXT que 
determina o tempo a ser cronometrado. 

Linhas 390-470 — Controem a ampulheta em si. 

Linhas 490-620 - Enchem a metade superior com 
areia decor aleat6ria. 

Linhas 630-740 — Formam a rotina que tira um grao 
de areia da metade de cima e coloca na metade de baixo. 
Como? Simptesmente pintando o ponto da parte de ci- 
ma de preto e o ponto da parte de baixo da cor anterior. 
As posigoes dos pontos sSo I Idas atrav& das linhas 670 
e710. 

Linhas 750-770 — Constituem um loop para passar o 
tempo, de tal forma que cada grao caia em intervalos de 
1 segundo. Para um ajuste fino do tempo, talvez seja 
precise mudar o valor final deste loop (um valor maior 
tornar^ a execugao mais lenta, enquanto um valor 
menor a tornar^ mais r^pida), valor 220 funciona bem 
no nosso computador. 

Linhas 780-880 — Dao a ilusae da areia caindo, 
PLOTando e apagando pontos consecutivos suficiente- 
mente rdpido para que eles pare^am estar se movendo. 
Use esta t^cnica em seus programas. A linha 870 chama 
a subrotina em linguagem de m^quina para fazer o som. 
Para cada tipo de areia h^ um som especi'fico. Se voce 
quiser, remova o REM dessa tinha para que ela fique: 

870 POKE 788,F + NS; POKE 769,S: CALL 
770:NS = NS + 1 

e entao para cada gr§o que cair, haver^ um novo som. 

Linhas 890-940 — Toca o sininho tantas vezes quanto 
OS pninutos que jd passaram. 

Linhas 1000-1160 — Formam a areia, isto ^, as coor- 
denadas dos pontos que devem ser apagados e pintados 
pela rotina das linhas 630-740. 

TWO-LINERS 

Ainda estamos esperando suas colaboracpoes para apre- 
ciapao de nossa reda(;;ao e posterior publicacSo. 

Portanto, maos S ebra e enviem seus programas pa- 
ra: MICROHOBBY 

Sepao Por Dentro do Apple 
Caixa Postal 60081 
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f REN tit IW>ULHETA ttt 

11983 POR DENTRO DO APPLE 
IH TEIT 1 HOME : CLEAR 

2» easuB use 

2S« INPUT ■aUANTOS NJNUTDS 9EV0 
CROKOBETRAR ? 'jHI 

261 HDHE : VTAB 7 

271 PRINT -eUE TiPO DE AREIA D£V 
USAfi ?■; PRIHT ; PRINT 'DE 
SERTO DO (N)QHAVE'! PRINT 'D 
ESERTO DE (AITACANA': PRINT 
■DESERTD BE (B)OBI': PRINT " 
DESERTD DQ (StAARA': PRINT ; 
PfilHT "SUA ESCflLHA ? •',: GET 
Af: PRINT At 

2B« IF At = •«■ THEN D = 25:1 = 
10 

291 IF At = 'A* THEN D = asK = 
19 

3M IF At - '6* THEN D = 5f;I = 
5 

311 IF At ' 'S' THEN D = 111:1 = 
5 

321 HONE 

330 FOR IP = 1 TO nt 

341 BR 

35« R = 37 

361 Z = INT (14 t RNS (D) -» 1 

371 COLDR= 15 

391 RER CONSTRUIR ANPULHETA 

411 HLIN 13,27 AT I: HLIN 13,27 AT 
39 

42« VLIN 1,7 AT IJj VLIN 32,39 AT 
13 

4JI VLIN 1,7 AT 27{ VLIN 32,39 AT 
27 

441 S = 14:J = 21 

45* FOR A = 1 TO 12 STEP 2f PLBT 
S,A + 7! PLOT S,A + B: PLOT 
J,A ♦ 19! PLBT J,A + 2»:S = 
S t 1:J = J t 1: N£IT A 

44* S = 14: J = 21 

471 FOR fl = 12 TO 1 STEP - 2s PLOT 
S,A + 18: PLOT S,A + 19: PLOT 
J,A * 6: PLOT J,fl + 7:5 = S + 
1:J < J + h NEIT A 

481 REN 

491 REN ENCHER A RETADE DE CIHA 

5*1 KM 

511 [:OLDR= 2 

521 A = 17:C = 19:B = 21 

531 FDR K M TO 2 

54* FOR J = C TO B 

55* PLOT J, A 

561 HEITJ 

571 A = A - I 

58* KEIT K 



598 C = C - tsB = B + 1 

61* IF A < & THEN 62* 

61* BOTO S3* 

62* HLIN 14,26 AT 3B 

m REN 

64* REN CONECA A HARCAR TEHPO 

650 REPt 

66* CDLDR= * 

67* READ l,y 

6S* IF )( = f THEN 9»* 

690 PLOT I,Y 

7** COLOR: I 

71* READ t,i 

7Z» PLOT IJ 

730 IF K = 2* THEN R « R - 1 

74* REH 

75* RCIf AJUSTA RELOfilO 

760 REH 

77* FOR K = 1 TO 22*: NEIT K 

780 REH 

79* REN CAIR DA ARE I A 

B*0 REN 

Bl* FOR F ' 19 TO R 

B20 CDLDR= 2 

B3« PLOT 2f,F 

84* CQLOR= * 

85* PLOT 2*,F - 1 

86* NEXT F 

87* POKE 76fl,B + NS: POKE 769,li 
CALL 77*: REH aPCAD...NS-N5 
+1 

Be* 60TO 660 

B9* REN 

9*0 RER TEnPO BOE JA PASSOli 

910 REH 

920 FOR S = 1 TO TP 

930 PRIHT CHRt (7) 

940 NEIT 5 

9S0 IF S ' 2 THEN HOKE : HTAB 1 
6; PRINT '1 HINUTO': 60TO 97 


96* HONE ! HTAB 17: PRINT TP* HI 
NOTOS' 

97* RESTORE ;NS = I 

98* NEH TP 

990 m 

10*0 REN 

1*1* REN DADOS DA AREIA 

1020 RER 

103* DATA 20,6,20,37,19,6,19,37 
,21,6,21,37,2*,7,2*,3t,19,7, 
19,34,21,7,21,36 

1*4* DATA 2*,8,2*,3S,1B,6,1G,37, 
22,6,22,37,2*,9,2*,34,19,8,1 
9,35,21,8,21,35,21,9,22,36 

1*5* DATA 22,7,22,35,22,8,23,37, 
23,6,21,34,21,1*,2*,33,2*,I0 
,19,34,19,9,18,34,22,9,18,35 



1*6* DATA 20,11,17,37,18,7,17,3 
6,17,6,16, 37, 23, 7,2*, 32, 21,1 
1,21, 33,22,1*, 23, 36, 16,6,24, 
37 

107* DATA 16,6,ie,34,2*,12,17,35 
,18,8,17,34,17,7,19,33,17,8, 
IB, 33,24, 6,15, 37, 19, lf,16, 36 

KB* DATA 16,7,23,35,18,9,19,32, 
23,8,16,35,24,7,24,36,25,6,2 
2,34,21,12,25,37,23,9,22,33 

1090 DATA 19,11, 20,31, 23,1*, 23,3 
4,24,8,26,37,22,11,26,36,18, 
1*,2I, 32, 22, 12,25,36 

11** DATA 2*,13, 24,35,21, 13,16,3 
4,15,7,13,36,13,6,18,32,15,6 
,15,33,14, 6,14, 37, 24, l*,t7,3 
3 

UK DATA 14,7,25,35,16,8,24,34 
,17,9,18,31,24,9,19,31,19,12 
, 2*, 3»,2«, 14,26,35,25,7,22,3 
Z 

1120 DATA 25,8,14,36,26,6,21,51, 
26,7,25,34,19,13,19,30,20,15 
,17,32,21,14,21,31,18,11,23, 
33 

113* DATA 17, K, 16,33, 16,9,15,34 
,25,9,14,35,15,9,24,33,22,13 
,22,3), 16, 1*,2*, 29,17,11, 23, 
32 

1141 DATA 10,12,26,34,23,11,17,3 
1,24,11,16,32,21,15,21,29,19 
,14,14,34,23,12,20,28 

US* DATA 23,13,13,33,16,11,23, 
31,22,14,t8,3«,18,13,2S,33,l 
7, 13,22, 3*,22, 15,24,32,17,12 
,19,29 

116* DATA ie,14,lB,29,2«,16,21,2 
8,19,15,19,28,21,16,22,29,18 
,lS,17,3*,2*,t7,24,31,19,16, 
16,31,21,17,23,31,19,17,20,2 
7,f,« 

lie* REH SON DA AREIA 

12»» POKE 771,173: POKE 771,48: POKE 
772,192: POKE 773,136: POKE 
774,2*8! POKE 775,5: POKE 77 
6,2*6: POKE 777,1 

121* POKE 778,3! POKE 779,24*: POKE 
780,9: POKE 7BI,2»2i POKE 78 
2,2*8: POKE 783,245: POKE 78 
4,174: POKE 785,*: POKE 786, 
3 

122* POKE 787,76! POKE 788,2: POKE 
789,3: POKE 79*, 96 

1230 RETURN 



Dsniel R. Falconer e Joti Eduardo Moreirs 
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O PULO DO SAPO 



Nob numeros anteriores \A analisamos um jogo inteli- 
gente (TK Xadrez de MICROSOFT); urn jogo s^rio (Si- 
mulador de Voo - fits brinde de MICROHOBBY); um 
programa-ferramenta (funpoes t da MICRON) e um apli- 
cativo administrative (SICOM da MICROSOFT). Este 
mes vamos analisar um jogo de apao: PULO DO SAPO 

da MULTISOFT. 
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COPYRIGHT to -1983 
MULTISOFT INF- LTDR . 

A fita nos 'foi enviada numa embalagem bem cuidada, 
contendo instrugoes de carga e um certificado de garan- 
tia. J^ aqui, nos defrontamos com a primeira novidade: 
a fita est5 garantida por 60 dias "contra defeitos de fa- 
bricagao" e por UM ANO, contra "uso indevtdo ou mau 
funcionamento do equipamento reprodutor mediante 
pagamento de uma taxa de substituipao". 

Se realmente isto funcionar, representa uma louv^vel 
iniciativa que esperamos seja logo imitada por todos os 
fabricantes brasileiros de SOFTWARE. 

Afinal das contas o t§o massacrado consumidor pre- 
cisa comegar a levar um pouco de vantagem. 

A qualidade de grava(pao foi testada aqui, na reda^o, 
em gravadores de v^rias marcas e modelos e justificou 
a ousadia de garantia. A gravagao (bem uniforme e em 
bom ni'vel) so di probtemas em gravadores com o 
azimuth da cabe^ desregulado. Este 6 um problems que 
ainda esta I espera de uma solLwpao. 

PU LO DO SAPO 6 um jogo tipo "video-game" que 
pode ser jogado com Joystick. Obviamente nSo resiste a 
uma comparapao direta com cartuchos de video-game 
por tres motivos b^sicos: 

1) No cartucho, o tempo de carga ^ irrelevante (o cartu- 
cho 6 uma ROM.). Na fita em questao, o tempo de car- 
ga 6 de 6 minutes. 

2) A tela do TK 6 de baixa resolupao (pixel muito gran- 
de) para poder permitir figuras "realistas". 

3) TK s6 produz imagens preto e branco. 

Mas, levando-se em conta que o TK 6 um computador 
(de verdade!) e que esses jogos representam nele, uma 



utilidade marginal, talvez as objegoes anteriores possam 
ser relevadas. 

Nossa opiniao comega a se tornar um pouco mais fa- 
vor^vel quando comegamos a jogar: a apresentapao est^ 
em ni'vel profissional e as instrugoes sao bem nitidas (em 
que pese a ausencia de acentosi). 

conteudo do jogo & um pouco pobre; um sapo que 
tents chegar em casa atravessando uma estrada movi- 
mentada e pulando por cima de troncos, tartarugas e ja- 
car^s para atravessar um rio. 

Um toque pat^tico 6 dado pelo espor^dico apareci 
mento de um filhote (ou ser^ um girino?) que o sapo 
precisa salvar. Quando o sapo pega o filhote no colo, o 
si'mbolo (nao d^ para se falar em figuras) pisca com um 
n'tmo tao bem acertado que chega a evocar algo esper- 
neando! efeito ^ gozadi'ssimo, mostrando que a cria- 
tividade e a imaginagao podem muito bem suprir a falta 
de recursos. 

A contagem de pontes e de tempo 6 impec^vet e o sa- 
po dispoe, inclusive, de uma galeria de recordes, bem es- 
timulante para o espi'rite competitive. 

Quando um jogador escreve seu nome, se o joystick 
estiver conectado, algumas letras nao s§o aceitas. Este 
preblema ocorre com alguns modelos antigos do 
TK82-Ce6de m^quina.mas nao de fita (alife j^ comen- 
tamos, na revista, como o usu^rio deve proceder para eli- 
minar este inconveniente). 

Em resumo, trata-se de uma fita produzida e fabrica- 
da em ni'vei profissional, contendo um jogo razoavel- 
mente interessante, com pouco conteudo instrutivo mas 
suficientemente divertido para um dia de chuva ou uma 
reuniao de amiges. 




(N.R.: Todos os fabricantes de SOFTWARE podem nos 
enviar um exempfar de suas fitas, pois teremos o m^xi- 
mo prazer em analis^-las e coment^-las para prestar mais 
um servigo a nossos leitores). q 
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NOVIDADES 



==5gi§iiO TK2000iiisili 



As principals caracteristicas deste laniparnento da 

Microdigital sao: 

O 64K de memdria RAM 

O 16K de memoria ROM com linguagem BASIC 
(compati'vel com Apple Soft), Mini -Assembler e Mo- 
nitor/Disassembler. 

O Operapao em modo texto ou gr^f ico de baixa e alta 
fesolupao (280x192), em cores, sistema PALM. 

O Canal de som pela TV. 

O Teclado prof issional tipo m^quma de escrever. 



Podem ser conectados ao TK2000 at6 dois gravadores 
cassete com controle por software, em formato Apple- 
Soft ou proprio, e tamb^m pode ser conectado inter- 
face para disk-drive de 5 1 /4 polegadas. 

Para display de vi'deo pode ser utilizado numa TV co- 
mum, em cores ou preto e branco, ou monitor de vt'deo. 

A liga<pao de impressora, tipo Centronics, pode ser 
feita diretamente, sem a necessidade de dispositivos de 
interface adicionais. 



Esta previsto o lanpamento de outros aoessdrios tais 
come joystick, interface RS232, etc. 

Uma grande quantidade de programas aplicativos co- 
merciais e profissionats, bem como jogos animados em 
cores e alta resoluQao ser^ lanqada. 

Na ^rea de aplicativos comerciais destacam-se: 

1 ) programs de c^lculo de planilhas (tipo Visicalc), 

2) sistema de controle de estoques, 

3) editor de textos para a lingua portuguesa. 



NOVO LIVRO PARA INICIACAO AO 
MICROCOMPUTADOR 

Esta sendo lan(;ado no Rio de Janeiro, um novo livro 
que visa difundir a linguagem basics para microcompu- 
tadores, em todo territorio nacional e nos pai'ses de lin- 
gua portuguesa. 

iivro, que serve para adultos e criangas 6 fruto de 
um m^todo e a experiencia de um curso para iniciantes, 
desenvolvido pela MICRO-KIT, tem como autores 
Carlos Alberto Abreu, que possui mestrado em Engenha- 
ria de Sistemas pela COPPE e de Denise Reis, que tam- 
b6m possui mestrado em EducatpKo do lESAE, da Fun- 
dag§o Getulio Vargas. 

Tendo como base a programa<?ao voltada para os mi- 
crocomputadores da linha Sinclair: TK82, 83, 85, 
CP200, TIMEX 1000, ZX81, entre outros; esse livro po- 
de tamb^m ser utilizado pelos operadores da linha TRS 
ou APPLE, com ligeiras modificagoes. 

Sendo editado no Rio de Janeiro, o livro ser^ distri- 
bui'do diretamente pela Micro-Kit em sua primeira 
edigSo. 

PROGRAMAS PARA COMPATlVElS COfW TRS-80 

Foi langado livro de programas para CP300, CP500, 
D8000, D8001, D8002, DGTIOO, NAJA, JR.SYSDATA 
de autoria de Jeff Andrew editado pela EB Informatics 
(CP. 30234, CEP 1051, SP). 

Os programas varrem toda gama de interesse, indo 
desde aplicativos s^rios (conta bancaria, demonstratives 



grdficos, etc) at6 jogos divertidos. 

A informAtica chega As escolas 

DE IP E 29 GRAUS 

Crianpas e adolescentes de varias escolas parttcu lares 
do IP e 2P graus, j^ estgo aprendendo a operar em mi- 
crocomputadores pessoais, sendo esse o primeiro passo 
para que, no futuro, etes possam desenvolver-se no pro- 
missor campo da informStica. 

curso, que est^ sendo ministrado pela CENADIN - 
Centro Nacional do Desenvolvimento da Informdtica, 
sob a diregao do engenheiro Ramiro Yabumoto e Ale- 
xandre L. Werfel, seguem as seguintes fases: Iniciagao ao 
Microcomputador — Programap^o Basic e Introdugao ao 
Proc«.samento de Dados. 

Com um corpo de v^rios professores especializados, 
esta empresa ministra esse curso no pr6prio col^gio, 
onde, em razao do pr6prio interesse dos pais dos alunos, 
Ihes foi cedido um espago para essa especial izagao fu- 
tura. 

Col6gtos de boa categoria, como o Rio Branco, Renas- 
cenga, Benjamin Constant, Maria Imaculada entre 
outros, j^ cederam espagos para que a Cenadin possa ini- 
ciar seus alunos no campo da informAtica. 

A iniciativa pioneira desta empresa, acha-se em franca 
expansao e apesar da resistencia de algumas escolas, o 
engenheiro Alexandre acred ita que outros col6gios de 
Sao Paulo irao aderir, uma vez que, o pr6prio avango da 
informdtica tr^ determinar esse procedimento. 
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Flavio Rossini 



Observa^o Inicial: Para esclarecimento dos fei tores, sa- 
lientamos que este curso 6 um resumo do Hvro 'Untrodu- 
qSo a Linguagem de Maquinas" para o TK" - AS- 
SEMBLY Z80'\ Volume I de Flavio Rossini (Editora 
Moderna e Micromega). Para os que desejarem se apro- 
fundar no ASSEMBLY Z8(3. sugerimosa leitura do livro 
citado esua continuafao {Volume II}. 

PRINCIPAIS REGISTROS INTERNOS DE 8 B*TS 

Iniciaremos esta aula explorando conceito de RE- 
G ISTRO; esta palavra j^ foi utilizsda quando falamos so- 
bre a memdna. Um registro 4 um circuito eletronico ca- 
paz de memorizar bits (oito no nosso case), podendo re- 
presentar e armazenar numeros de a 255 {'00' a TF' 
em hexadecimal), 

microprocessador do TK possui v^rios registros in* 
ternos que sao muito utilizados nos programas em lin^ 
guagem de m^quina, dos quais seteserao estudados nes- 
sa aula; estes registros "nio" fazem parte da memoria e 
sao chamados respectivamente de A, B, C, D, E, H e L. 
Alguns deles tern a propriedade de "juntarem-se" quan- 
do necess^rio, formando um unico registro de 16 bits; 



AAICROREI 

INFORMATICA LTDA. 



- Cursos regulares de Linguagem BASIC ou com 
horSrio a combinar, para executives e para 
qualquer microcomputadof. 

- Curso sobre GRAFICOS em Basic, para JR. 

DISMAC. . ,„ ...vvi 

- Venda de micros pelo correio. JH, MAAAi. 

- Transformamos televisao para monitor. 

- ConsulToria em SOFTWARE para 
microcomputadores. i * o u h 

- Especializada em programas para Hewlett pacKara 

85. 

- Proqramas prontos para HP 85 e B7: 

. Mala direta e agenda de clientes • Movimentapao 
bancSria com c6digo de despesas • Datilografia 
automStica de circulares com busca de enderegos na 
fita • Topografia • Contabilidade de autdnomo: livro 
caixa • Jogos diversos • Foiha de pagamento 

• Controle de estoques • Controle para Postos de 
oasolina • Controle de processes para Marcas e 
Patentes • Controle de aluguSis • Contas a pagar 

• Contas a receber 



Rua Pinheiros, 812 CEP 05422 
Pinheiros SP 

Tel.: (0111 881 0022 



assim podemos formar os pares de registros BC, DE e 
H L (so esies pares sao possiveis). 

Por exempio, se o registro B contdm o numero 'A0' 
(160 em decimal} e o registro C cont^m 'B2' (178 em 
dectmaD-o par BC contem o numero 'A0B2' (256 x 
X 160+ 178= 41138 em decimal). 




(CtHTiD podcm tar tmapnidDi »| ^rinapvi i mm ii uii innvn« tfa 

Coma vimos anteriormente, as instrugoes em lingua- 
gem de mdquina sao dadas por um ou mais grupos de 
c6digos em hexadecimal de dois di'gitos cada. Isto e fei- 
to para evitar a confusao que poderia ser criada usando 
apenas os numeros e 1. Mesmo assim, temos agora 
apenas 16 sfmbolos disponi'veis (0, 1, 2, 3, 4, 5, 6, 7, 8, 
9, A, B, C, D, E, F) e para programas razoavelmente 
grandes mesmo isto pode trazer confusao! Dessa forma, 
para facilitar a compreensao do ponto de vista humano, 
costuma-se associar a cada instru^o, grupos de letras em 
forma MNEMONICA para auxiliar a programapao, que 
sao chamados "codigos de operacpao", pois terao como 
objeto associar uma ORDEM a cada grupo de letras! Por 
exempio, se o codlgo 10100111 significar "some", seu 
correspondente em hexadecimal seria 'A7' e seu mnemo- 
nico poderia ser ADD. Assim, dependendo da instrupao 
em linguagem de m^quina, cada mnemonico poder^ 
significar 1 ou mais grupos de 2 dfgitos hexadecimais. 
Dessa maneira, para programar em linguagem de mSqui- 
na, deveremos aprender os mnemonicos correspondentes 
a cada instru(;ao do microprocessador e fazer o progra- 
ma utilizando os mesmos; no final com o auxi'lio de uma 
tabela, substituiremos os mnemonicos por seus codigos 
hexadecimais e utilizaremos o HEXAIVIEM para coiocar 
o pr9grama em bits no computador. 

No TK OS programas em linguagem de maquina sao 
tratados como SUBROTINAS de um programa em 
BASIC, as quais sao chamadas pela fungao USR (em 
BASIC, abrevia^ao de USER) cujo argumento e o ende- 
repo inicial da subrotina (por exempio 30000 se o pro- 
grama de linguagem de maquina estiver a partir do ende- 
re^o que colocamos em RAMTOP em aulas anteriores); 
portanto, estas subrotinas devem ter como instruQao fi- 
nal um comando para voltar ao BASIC, similar ao 
RETURN, cujo c6digo hexadecimal e mnemonico sao 
respectivamente: 

'C9' (codigo) RET (mnemonico abreviacpao 

de RETURN) 
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Vamos entender como funciona a instrugao USR;su- 
ponhamos que tiv^ssemos o seguinte "programa" em 
BASIC: 

Ifl PRINT USR 30000 lUSR est^ na tecia LdoTK) 

Ao encontrar USR 30000, o computador "carrega" o 
par de registros BC (mencionados anteriormente) com 
este numero, ou seja, como 30000 = '7530', teremos 
B = 75' e C = '30'. A seguir o microprocessador exe- 
cuta programa em linguagem de m^quina que comega 
na mem6ria 30000 (= '7530'); portanto ^ conveniente 
que tenha sido previamente coiocado um programa a 
partir da mem6ria 30000. programa 6 entao executa- 
do at6 encontrar a instrugao RET (cbdigo 'C9'} quando 
controle volta ao programa BASIC, fornecendo como 
sai'da o conteudo do par BC, que, se nao for alterado du- 
rante programa em linguagem de m^quina, continuara 
sen do '7530' (30000). Portanto, para obter a sai'da da 
subrotina (ou seja, os resultados que devem estar no par 
BC) basta ordenar um PRINT da fungao USR! 

Vamos entlfo colocar o seguinte programa em lingua- 
gem de m^quina na mem6ria 30000: {que jd deve estar 
reservadal) 

RET (apenas istol) 

Como se trata apenas de uma instrutpao, n3o precisa- 
mos utilizer o programa HEXAMEM; iremos faze-lo di- 
retamente com POKE. codigo hexadecimal do RET 6 
'C9' que equivale a 201 (em decimal), portanto: 



POKE 30000,201 

A seguir digite: 

PRINT USR 30000 



(NEW LINE) 



(NEW LINE) 

que deverd aparecer na tela? Ora, a fun(?ao USR 
carregar^ o par BC com 30000 {'753^8'), ordenando a se- 
guir, que o microprocessador execute o programa em 
linguagem de mdquina que esti a partir da mem6ria 
30000, encontrando "de cara" o RET. Dessa forma, o 
controle voltar^ ao programa em BASIC, sem ter altera- 
do OS registros BC e fornecer^ como sai'da, o prdprio 
30000; portanto, na tela de TV deverd aparecer o nume- 
ro 30000. 

Poderia surgir agora a seguinte pergunta: mas nao 
extste uma instrugao equivalente ao STOP? De fato, h^ 
em linguagem de m^quina, uma instrugao similar ao 
STOP em BASIC cujo codigo de opera(pao 6 HALT {c6- 
digo hexadecimal '76'). NUNCA use esta instrupao pois, 
nwte computador, ela paralisa o sistema e este nao acei- 
ta mais nenhuma tecta nem mesmo o BREAK! Portan- 
to, use sempre RET para terminar seus programas em 
linguagem de m^quina. 

A INSTRUgAO LD 

A instrugSo LD permite colocar numeros dentro dos 
registros internes do microprocessador (obviamente es- 
tes numeros podergo ser de '00' a 'FF' no mdximo para 
cada regtstro), copiar os dados de um registro em outro 
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ou para algum endereco da memoria e vice-versa; assim, 
existirao v^rias instrupoes LD, cada uma com seu pro- 
prio codigo hexadecimal. (LD ^ abreviatura de LOAD = 
= carregue). 

Vamos analisar inicialrrrente, como colocar numeros 
diretamente nos v^rios registros; a instrutpao, de modo 
gen^rico, corresponde a; 

LD registro.dado 

Por exempto; 

LD E, '2A' (que equivale a dizer LD E,42) 

Colocar^ o niimero '2A' (42) no registro E. Esta ins- 
tru(pao corresponde a 2 (dois) bytes em codigo hexade- 
cimal, um para o c6digo de opera<pao (no caso "car- 
regue" o regtstro E: LD E,) e o outro para o dado 
numero que ser^ coiocado. Assim, para os vdrios regis- 
trc«, teremos os seguintes codigos de opera<;ao e c6digos 
hexadecimais: 




INSTBUCAO 


CODIGO 1 


LDA.dKki 


•3E' 


+ 


1 byt* panoriadQ 


LDB.itodD 


•«• 


+ 


1 <)Ytt p*n o (teds 


LDC.iMd 


■w 


+ 


1 Lflv PW D OtOO 


LD D, dKlo 


•16' 


+ 


1 byti pmn o d*da 


LOE. dKta 


■IE- 


+ 


1 bvn ptfiadAdo 


LDH,(Mo 


■M' 


+ 


t bytt par* o d«da 


LOL, cMo 


'IE' 


+ 


1 byla pwnodwla 



<• in>tTU(Jo L D ngiitni.dKki IBbttil.l 
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Vamos entlio fazer um programa, que "car rega" o re- 
gistro B com '00' e o registro C com '2A': 



MEM.3MM LOe,'»- -|6M' ;'««' > « 
MEM.3»M3 (.DC,'2A' 'ieZA' .'JA' - 42 
MEM.3MM RET 'C9' 



Devemos entao colocd-lo, per exempio, a partir da 
mem6r!e 30000 (lembre-se de reservci-la), usando 5 vezes 
POKE como fizemos anteriormente para a instrugao 
RET (transformando adequadamente os codigos hexade- 
cimais para decimals) ou entao usando o programa 
HEXAMEM para introduzir as 3 instrupoes. Se voce uti- 
lizar o HEXAMEM, lembre-se de RESERVAR o fim da 
memoria antes de coloc^-lo no computador; a seguir, 
execute-o colocando 30000 para o enderego iniclal e fa- 
(?a:(N.L. = NEW LINE) 



(E2A 
f 



(N.L.I 
tN.L.I 
(N.L.I 



Note que o programa ocupa 5 posigSes de mem6ria, 
respectivamente de 30000 a 30004. 



3IM1 


MM«11f 


•M' 


LO B, 'M' 


3M»2 
MM3 


ttHUH 


■•£• 

■2A" 


LO C. '2A 




11M1M1 


•ca* 


fliT 


Wvb 









(viiusliiKio do prosramt ru mamdni do compuuelo) 
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on line 



2? ed'Q&o 
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p<lbl<co do 
exemplar 



A seguir ditite: 



PRINT USR 30000 



{N.L.) 



O que dever^ aparecer na tela? conteudo do par de 
registros BC, ou seja, 256 x + 42 = 42. Isto porqueo 
par de registros foi alterado antes da instrugao RET; 
assim seu conteijdo inicial que era BC = 30000 (7530) 
foi modificado pelo programa para BC = 42 ('002A'). 

Ha tamb^m a possibilidade de carregar diretamente 
pares de registros; neste caso por^m, cada instrugao cor- 
responder^ a 3 bytes, 1 para o codigo de operagao e 2 
para o nijmero que deverd ter 16 bits. Note que, como j^ 
foi comentado anteriormente, voce devera colocar antes 
SEMPRE BYTE MEMOS SIGNIFICATIVO; assim 
temos as seguintes instrutpoes: 



INSTRUgAO 


COOIQO 


LO BC. (tnrtn 
LO OE, rt*r«n 
LDHL.dado 


'11 ' t Z bytd ptri dtdo 
'11 ' + Z byim pan o d*do 
'21' ^ 2 bv1« para o d>do 



(•iiutrufiD LD pirdarsgirtroi, <tK)o(16bitiJ.| 

E fagamos o programa ; 



MEM. 



LDBC, 'HAI' '(TAtM' ;invmiad* 
'At' com -W 



MEM 3aW2 RfiT 



■C9' 



(v«>i n9 4 ou n9 *ictn-prormKiQO«l} 

Usando HEXAMEM, coloque o programa a partir da 
memoria 30000. Verifique que fazendo PRINT USR 
30000 voce obtera 160 (Por que?). Voce nao precisa 
preocupar-se em "apagar" o programa anterior, pois es- 
tar^ escrevendo "por cima" nas mesmas mem6rias. 

Experiments "esquecer" de inventar os bytes confor- 
me indicado e introduza este programa: 



■IVMAf 
■CS' 



que vocS ir^ obter? Tente explicar o resultado. 

Vamos ver agora, como passar numeros de um regis- 
tro para o outro; teremos todas as combinagoes pos- 
si'veis da seguinte instrugao gen^rica: 

LD registro, registro, 

a qual copia o conteudo do registro da DIREITAno re- 
gistro da ESQUERDA, nao alterando o conteijdo do re- 
gistro da direita; esta tnstru(pao equivale a apenas 1 byte 
em codigo hexadecimal pois nao exige que nenhum da- 
do seja explicitado. Para facilitar, iremos construir uma 
tabela que possui todas as combinagoes possi'veis desta 
instrugao: 




Para utilizd-la, use sempre primeiro a coluna vertical 
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^ esquerda e, a seguir, a linha horizontal superior; por 
exempio: 

LDC.D equivaiea '4A' (copie o conteudo do registro 

D no registro C, sem alterar o 
registro D). 
LD E,E equivale a '5B' (copie o conteudo do registro 

E no registro E. Como voce 

pode notar esta instru^o nao 

f3z absolutamente nadaf). 

Experimente agora o seguinte programa, que copia o 

conteudo dos registros H e E, previamente carregados, 

nos registros 8 e C respectivamente; (lembre-se que, por 

enquanto, iremos fazer sempre MEMORiA INICIAL = 

= 30000 e que o final de mem6ria deve estar reservada 

antes de colocar HEXAMEM no computador). 



(NOTA: NAO existe instru(;ao para copiar de umas6 
vez numeros de 1 par de registros para outro; assim, por 
exempio, a instrugao LD BC, HL nad^ vilida e deveser 
substitui'da per: 

LD B,H e LDC,L 

AI6m disso, NAO § possi'vel tentar copiar o con- 
teudo de um registro para um par ou vice-versa; portan- 
to, instru0es do tipo: 

LD BC,A 
LDD,HL 



nSoexistemt 



MEM. 3MM 


i.OH,-«r 


'ZM1' 


;amaiH otHH '11' 


MEM.3M«2 


LD E. -M' 


'1E5i' 


-.camft E com 'SI' 


MEM 3aaM 


LDB.H 


■44' 


; copi* H Mn B 


MEM. 3H«6 


LDCE 


'4a' 


:capi*E >inC 


MEM.3H«6 


RET 


■Cfl- 


: win w BASIC 



Utilize entao HEXAMEM para colocar os codigos do 
programa na mem6ria e, no final, ao invfe de teclar P 
(pare), tecle XS (eXecute em Slow) ou XF (eXecute em 
Fast) para que o programa seja executado. Naturalmente 
se voce prefere continuar fazendo PRINT USR 300(3(3 
nao h^ problemas. 

Perceba que este programa "carrega" o registro H 
com '01' e o registro E com '50' (80 em decimal) e, a se- 
guir, copia registro H em B e o registro E em C, fazen- 
do BC = '0150'. Desse modo, voce poder^ obter 1 *256 + 
+ 80 = 336. 



A ti'tulo de esdarectmento, podemos agora fazer uma 
analogia com o BASIC; a instrugao LD registro, dado de 
1 byte ou LD par de registros, dado de 2 bytes pode ser 
associada a instru(pao LET variSvel = numero, por exem- 
pio, LD B, '10' com LET X = 16. A instrugao LD regis- 
tro, registro pode ser associada a LET varidvel = variA- 
vel, por exempio, LD H,L com LET X = Y. 

£ conveniente tembrar que ao chamar umasubrotina 
em linguagem de m^quina, apenas o conteudo dos regis- 
tros B e C 6 conhecido; todos os demais tem um con- 
teudo desconhecido. mesmo 6 v^lido para a membria 
que fica ap6$ o programa. Vamos exemplif icar: ao fazer 
RAMTOP = 30000, reservamos a mem6fia de 30000 a 
32767. Se tivermos um programa que ocupa 100 bytes, 
ou seja, da mem6ria 30000 a mem6ria 30099, as posi- 
(?oes de 30100 a 32767 terao valores "quaisquer". E nes- 
ta regiao de mem6ria APOS o programa em linguagem 
de mdquina que colocaremos as vari^veis do nosso pro- 
grama que nao "couberem" nos registros. q 




comPUTncAo 

ELETPOniCfl ! 



nao perca tem- 
po! solicite 
informac5es 
ainda hoje! 



C 



GRATIS 




NO MAIS COMPLETO CURSO DE ELETRONICA DIGITAL E MICRO- 
PROCESSADORES VOCE VAI APRENDER A MONTAR, PROGRAMAR 
E OPERAR UM COMPUTADOR. 

MAIS DE 160 APOSTtLAS tHE ENSINARAO COMO FUNCIONAM OS, 
REVOLUCIONARIOS chips 8080, 8085. Z80, AS COMPACTAS "ME 
MORIAS"E COMO SAO PROCRAMADOS OS MODERNOS COMPU- 
T ADORES. 

voce RECEBEBA KITS QUE LHE PERMITIRAO MONTAR DIVERSOS 
APARELHOS CULMINANDO COM UM MODERNO MICRO-COMPU- 
TADOR. 
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OSOITENTA 



UM EDITOR DE CARTAS 




Igor Sartori 



Urn dos recursos mais interessantes de urn compu- 
tador & sua capacidade de manipula(;ao de texto. Ou se- 
ja, juntar, separar, quebrar e c\3ss\i\car strings (cadeias). 
Isso permite usar o computador e sua impressora como 
uma m^quina deescrever "inteligente". 

Programas com esta finalidade, sao chamados de "edi- 
tores" ou "processadores de texto" e atualmente, sSo 
bastante usados em jornais para facilitar os trabalhos de 
diagramagao, revisao e redaipao de arttgos. 

Em algumas revistas especial izadas tem aparecido 
muitos programas que realizam uma ou outra lungao de 
manipulagao de strings, principal mente para compu- 
tadores compatiVeis com o TRS-80 e o Apple II. 

Se voce tem urn TK-82 e viu algum destes programas, 
deve ter pensado: "Interessante . . . mas como eu pode- 
rei fazer o mesmo no meu computador?" 



Um editor de cartas 



Mudando um pouco o enfoque dado em artigos ante- 
riores, mostraremos um programa destinado a outros 
computadores e depois de explicarmos detalhadamente 
seu funcionamento, descreveremos como voce poder^ 
implementar um programa semelhante em seu TK. 

Este programa (veja listagem) tem a finalidade deco- 
locar um texto de uma correspondencia num formato 
de carta padrao. O texto dever^ entrar linha por linha, 
poderd ser corrigido em qualquer momento de sua di- 
gitaipao - sendo impresso apos a digita(;;ao da ultima 
linha, limpo e sem erros, \i que eles foram eliminados no 
processo de escrita. Foi desenvolvido em BASIC padrao, 
podendo ser rodado na maioria dos computadores. me- 
diante adaptagoes a sua respectiva versao do BASIC (por 
exempio, o Apple II e o TRS-80 e seus similares). 
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FUNCIONAMENTO 



programa editor de cartas est^ dividido em quatro 
partes: introdugao dos dados do autor da carta e do des- 
tinatario, introdu(?ao do texto da carta, corregao dos 
possi'vets erros e impressao da carta. 

Na primeira parte, que compreende as linhas de 10 a 
120, reserva-se inicialmente urn espa<;;o na mem6ria para 
texto da carta, por meio das instru?5es CLEAR 2000 
e DIM ASdOO). A instrugao CLEAR 2000 reserva 2000 
bytes da memoria para stringsea instru(pao DIM A8(100) 
dimensiona um vetor de 100 positpoes de memoria, que 
contera o texto da carta. Desta forma, poderemos escre- 
ver uma carta com no m^ximo 100 linhas ou 2000 letras 
(cerca de 200 a 300 palavras), o que ^ suficiente para 
um bom " bate-pa po". 

A seguir, dimensiona-se o numero maximo de caracte- 
res por linha, Isso sera funpao do tamanho do papel dis- 
poniVel e do tamanho da margem direita e esquerda. No 
programa, a margem esquerda foi fixada em 5 espapos, 
ficando a margem direita a criterio do usuario. 

A seguir sao pedidos os dados do autor da carta e do 
destinat^rio. Na linha TOO pede-se o CEP, a cidade e o 
Estado do Destinatdrio. Estes dados dever§o ser digita- 
dos em uma unica linha, separados por um espago. 

Uma vez digitados todos os dados, a tela 6 limpa, por 
meio da instru(?ao PRINT CHR8(31). Isso prepara a tela 
do computador para a introdu^ao do texto da carta. 

A INTRODUCAO DO TEXTO 

No momento da introdutpSo do texto, o programa 
mostra na tela uma s6rie de instrupoes destinadas a ex- 
plicar como proceder. 

A seguir, o computador mostra o si'mbolo "#" segui- 
do pelo niimero 1 . Isso indica que voce deve digitar a 
primeira linha de seu texto. Quando terminar dedigitd- 
la, pressione a tecia ENTER, NEW LINE ou equivalente. 
Se a linha for muito grande, o programa entra automati- 
camente no modo de correpao, exibindo a mensagem: 

LINHA MUITO GRANDE 

Se, por outro lado, o numero de caracteres digitados 
for menor que aquele estabelecido no ini'cio do progra- 
ma, o computador exibiri novamente o si'mbolo "#", 
seguido pelo numero 2, indicando que devemos digi- 
tar a pf6xima iinha, e assim sucessivamente, at6 que seja 
digitada a palavra FIM, com todos os caracteres em 
maiusculas, ou quando o numero de linhas exceder a 
100 — limite estabelecido pelo programa. 

Neste momento o programa passa para o modo "im- 
pressEio", limpando a tela e imprimindo o texto no for- 
muldrio, segundo a formata?§o pr^-estabelecida pelo 
programa. 



O MODO DE CORREpAO 



Em qualquer momento da digitatpao, podemos entrar 



no modo de corregao para corrigir um erro que pon/en- 
tura ten ha sido cometido ou se simplesmente desejarmos 
ver uma linha qualquer, ja digitada anteriormente. 

Para entrar no modo de corregSo, devemos pressionar 
a tecia ENTER na linha que estivermos digitando. Quan- 
do o computador mostrar o si'mbolo de "#" seguido pe- 
lo numero da proxima linha, devemos digitar o si'mbolo 
"#" seguido pelo numero da linha que desejarmos — que 
pode ser qualquer uma — , inclusive a ultima linha digi- 
tada. 

Uma vez feito isso, o computador nos apresenta duas 
possibilidades de escoiha: digitar novamente a linha ou 
corrigi'-la. 

Se escolhermos a primeira opgao, basta, ap6s indicar a 
escoiha ao computador, digitar a linha novamente, lem- 
brando-se que existe um limite ao numero maximo de 
caracteres. 

Na segunda opgao teremos h nossa disposigao, v^rios 
caracteres auxiliares com funcoes de correpao: 

Espago - a tecia de espago permite, ao ser pressionada, 
mostrar a linha caractere por caractere. 

L — a letra L maiuscula permite visualizar-se a linha to- 
da na tela. 

B — tem a fungao de backspace, ou seja, retorna o cur- 
sor sem apagar o caractere mostrado no vi'deo. 

D — apaga o caractere imediatamente ^ direita. 

I — permite a inclusao, em qualquer ponto da linha de 
varies caracteres. Uma vez digitado o caractere "I", os 
caracteres usados como comando, passarao a atuar como 
caracteres normals, 

E — volta ao modo de introduce de linhas, na mesma 
linha onde foi abandonado. 

Sempre que a linha estiver muito grande, o compu- 
tador avisar^, exibindo uma mensagem e retornando ao 
modo de corre(;:ao. 

POSSIBILIDADES DE 
MUDANQAS 

Este programa podera ser modtficado de acordo com 
as suas necessidades e sua imagina(;:ao. Por exempio, po- 
demos eliminar as linhas relativas a correspondencia e 
tornd-lo mais geral. Poderemos, ainda, tentar transfor- 
mar a rotina de verificagcio do tamanho da linha {linha 
240) em uma rotina que, alem de verif icar o tamanho da 
linha digitada, "quebra" o seu texto, transferindo os ca- 
racteres excedentes para a linha posterior. 

As modif icatpoes mais interessantes, no entanto, sao as 
que tornam este programa compati'vel com o TK. Mos- 
traremos, na pr6xima parte, um conjunto de dicas para 
traduzirmos este programa para o seu computador. Estas 
dicas sao interessantes mesmo para quem nao vd fazer 
um programa de edipao de cartas, pois elas valem para 
varies outros programas. 

Nota: A listagem que mostramos nao imprime o texto, 
mas mostra-o na tela. Isso i conveniente na fase de 
debug, quando eliminamos os erros de logica e de digita- 
gao, pois evita-se o gasto de papel desnecesseirio. Uma 
vez corrigido o texto, mude as instrugoes PRINT das 
linhas 260 a 430 para LPRINT. 

O 
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RESPOSTA DO QUEBRA-CABEgA 




Dentre as muitas respostas que recebemos de nossos 
leitores do QuebraCabeea "Motoqueiro no Deserto" en- 
contramos, mais uma vez, a de Samuel Ejchel. 

Desta vez, porem, ela nos chegou as maos a tempo de 
ser escolhida para publicagao. Isso pela clareza esimpli- 
cidade com que ele abordou e resolveu o problema. 

Recebemos muitas outras respostas de nossos assinan- 
tes, por^m estavam corretas apenas as enviadas por 

Andr6 B.Hartmann 
Antonio Cesar l_ettieri 
Aibio Boing. 
Marcos Antonio Pichateber 

Qu8bra-Cabe(;a da revista nO 3 admits muitas solu- 
Qoes ou instr-upoes equivalentes, que conduzem sempre a 
uma distancia maxima de 275 km. 

itinerario na condiQao da soluglFo 6tima, pode ser 
decomposto em 3 trechos: 

1. ultimo, que o motoqueiro percorre apenas duas ve- 
zes, uma indo outra voltando. Para ser m^ximo, ele deve 
partir com tanque totalmente cheio e caminhar 150 km 
para f rente b em segutda retornar. 

2. Como existe combust I'vel disponiVel para 900 km e o 
tanque da moto ieva o equivalente a 300 km, haverd um 
primeiro trecho que, no mi'nimo, devera ser percorrido 
6 vezes, 3 indo e 3 voltando. Isto porque 900:300 =3, 

Para otimizar, este trecho deve ser o mais curto pos- 
siVel. 

3. No segundo trecho, que liga o fim do 19 com o ini'cio 
do ultimo, deve-se levar e deixar combust I'vel suficiente 
para os 300 km do ultimo trecho. Como a capacidade 
total do tanque 6 equivalente a 300 km nao sevi poss i'vel 
fazer isso em menos que 2 etapas, ou seja, a moto dever^ 
percorrer o segundo trecho no mi'nimo 4 vezes, duas 
indo e duas voltando. Como no primeiro a moto percor- 
re 6 vezes e neste so 4, devemos fazer este trecho o mais 
comprido possi'vel, em detrimento do primeiro, ou seja, 
a moto deve sempre partir com o tanque cheio e cami- 
nhar a maior distancia possi'vel, deixando sobrar no fim 
o equivalente a 150 km por etapa. Assim este trecho de- 
ver^ ter 75 km de forma que a moto sal com o equiva- 
lente a 300 km (tanque cheio}, viaja 75 km, deixa o 
equivalente a 150kn , e retorna consumindo o equiva- 
lente a 75 km restantes no tanque. consumo total nes- 
te trecho ser^ tambem do equivalente a 300 km 



ifi 
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International 



Motoaueiro no Deserto 



Samuel Ejctwl. 

(4x75 km}. 

4, Finalmente, para o primeiro trecho, resta combustf- 
vei equivalente a 300 km, ou seja, 900 iniciais menos 
300 consumidos no 29 trecho e menos 300 consumidos 
no ultimo. Ora, como ele 6 percorrido 6 vezes, sua ex- 
tensao ser^ de 50 km (300:6). Com isso a distancia ma- 
xima atingida pela moto seria 50 + 75 + 1 50 = 275 km. 

5. Entre as v^rlas alternativas possi'veis de programs, a 
mais simpfes parece-nos a seguinte: 



10 
■30 

6« ENC 



78 
8& 

'90 
1S0 
lie 

lae 

130 
14-0 

ise 

160 
170 

130 

±■90 
300 
210 



PENETRE S0 K.H HO DESERTO. 
FRCR UM RESERVSTORID COti 
COMBUiiTXMEU PRRP 300 KM. 
RETORNE PflftR jq fti_C'EIft. 
REPIT« flS INSTRUCOES 10 fi 
4-0 Mfl ret OHA UEZ . 

NCHft O TftNeUE N« !RCi>EXft 
PELfl TERCeiRR VEZ, 
PENETRE NQ DESERTO RTE* 
RTINGIR OS RESEftyRTORXOS 
ft 50 K»i &ft RLDEIft, 
COMPLETE O TRNOUE D*? HOTO 
RETIRRHDO COMBUSTXyEL DE 
UH DOS RESERURTORJOSa 
PENETRE HftIS 7S KH WO DE- 
SERTO . 

FRC-H UM RESERVRTORJO COH 
COMSUSTIVEL PRRR 150 KH, 
RETORNE RTE OS RESERVRTO- 
RIO;:^ R 50 Krt DR Ri_DEIR, 
ENC-Hft O TRNaUE Dft HaTO, 
DEU^a TER RESTRDO COMB US- 
TIUEL. S-yplCIENTE PRRR 50 
KM NUM DOS RE5ER*JRTORXCfS. 
PENETRE NOURMENTE 75 KM 
RTXNGJr-iDO O RESERfJRTORXO 
COM COMBUST XUE1_ PRRR 1S0 
KM. 

CuMPLETE G TRf^OUE DR MO- 
TO. DE'^iEM RESTRR NO RE- 
?>ERURTORXG, COMBUSTr^fEi. 
PRRR 75 KM, 

PENtTRc MRXS 150 KM t40 
DESERTO. 

PL.RNTE R BRNDEXRR, 
REiORNE RTS* O RESERyRTO- 
RXO SUE CONTEM COMBUST X- 
VEL PRRR 75 KH. 
COi-OOUE NO TRNOUE TODO n 
C-GHeUSTXUEL EXXSTEKTE NO 
R E S E RMRTO R X G . 

RETORNE RTE» C RESERV"RTO- 
RIO QUE CONTEM COMBUSTX- 
UEL PRRR 50 KM . 
UOLCOUE MO TRNOUE TODO O 
COHEUSTXUEL E.XISTE^^^E NO 
RESERVRTDRXG . 
RETORNE R RLDEXR. 
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Nos pr6ximos dias 1 7 a 23 de outubro, Sao Paulo ser^ 
paico de um grandiose evento organlzado pe!a Guaselli e 
SUCESU, contando com o apoio da ABtCOMP: 
INFORMATICA/83. 

Este evento, a nfvei internacional. conta com a realj- 
za«;:§o de dois acontecimentos importantes, ou seja:a 111 
Feira Internacional de Informdtica e o XVI Congresso 
Nacional de Informdtica, ambos acontecendo paraleta- 
mente um ao outro. 

Este evento ^ de tao grande importancia que, juntos, 
sac considerados o terceiro maior acontecimento no 
mundo, na drea de Inform^tica, igualando-se ou, supe- 
rando at^, o NCC nos EUA e o SICOB na Franga. 

A programapao do INF0RMAT)CA/83. foi estrutura- 
da toda ela na preocupagao em atingir naosomente aos 
profissionais e fabricantes do setor, mas tamb6m ao jo- 




LiVRARIA 
POLiEDRO 



REVISTAS NA INFORMATiCA 

faf^a sua assinatura 

' BYTE, the small systems journal 

- BASIC COMPUTING, the TRS-80 journal 

- COMPUTERS & ELECTRONICS, formerly popular 
electronics 

- COMPUTE. tKe leading magazine o( home, educational and 
recreational computing 

- COMPUTt's GA2ETTH. Commo<lore VIC-20 and 64 
p«Tsanal computers 

- CREATIVE COMPUTING, computers and people 

- DESKTOP COMPUTING, the plain languase computer 
magazine for business 

' INCIOER, Greenes Apple magazine 

- INTERFACE AGE. computing for business 

- MICRO, Advancing computer kowledge 

- MICROCOMPUTING 

■ MICROSYSTEMS, the CP/M user's journal 
» MIX, the recording industry magazine 

- NIBBLE, the reference (or apple computing 

- SO MICRO, the magazine for TRS-SO users 

- PERSONAL COMPUTER World 

- PORTABLE COMPUTER 

- PC, the independent guide to IBM personal computers 

- PC WORLD, the personal computer magazine (or IBM PCs 
and compatibles 

F - SYNC, the magazine for Sinclair users and 
TIMEX/SINCLAIR users 

obs.: deixamos de colocar pre^os das assinaturas em 

virtude da constants altera^o camblal.Consutte-no« 
Atendemos pedidos pelo reemlxolso postal - 
UVROS E REVISTAS 

LiVRARIA POLIEDRO LTDA. 

R. Aurora. 704 (pr6x. Metr6 Republica) 

01209- &ao Paulo. SP ■ Ms. 221.6764 ■ 222.4297 
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vem e a crianga — que serso os "amantes da inform^tica 
no futuro" — , como tamb^m aos letgos, ou seja, aqueles 
que nao possuem um conhecimento mais aprofundado 
da ^rea. "Uma oportunidade para que todos aqueles que 
se interessam pelo fant^stico mundo da inform^tica, te- 
nham acesso ^s informagoes b^sicas" — esclareceu Salva- 
dor Perroti, presidente do Evento INFO/83. 

Esta programapao ter^ uma movimentacao calculada 
em cerca de 200 mil pessoas, conforme expos o presi- 
dente do Evento (Salvador Perroti) -, com uma Srea 
ocupada, na Feira, de cerca de 23 mil metres quadrados, 
sendo que 19 mil ser^ ocupada por expositores (mais 
ou menos 70 por cento constitui'da de equipamentos fa- 
bricados no Brasil, de empresas com desenvolvimento 
e tecnologia proprios); dois mil metros ocupados por 
universidades brasileiras e mil por entidades e institui- 
Coes governamentais. 

Assim sendo, na opiniao do presidente da Feira Jos^ 
Roberto Faria Lima, "a grande vedete deste evento, ser^ 
a presenga marcante da tecnologia nacional, e, "na fei- 
ra", (acrescentou Jos^ Roberto), "ser^a ^rea de micros, 
pois esta e a cirea mais proxima do grande publico — a 
^rea de contato da inform^tica com o publico que hoje 
existe no Brasil". 



A Feira; 

AMI Feira Internacional de Inform^tica narealidade, 
ser^ a "chamariz" para toda a programagao do evento. 
Com inijmeras atragoes: atividades que incluem debates 
para universit^rios, para o grande publico e para empre- 
s^rios e profissionais de informdtica, abordando temas 
centrados no untverso da inform^tica, nao e6 a ni'vel de 
desenvolvimento da ^rea como avaliapao da tecnologia 
adotada pelo Brasi!; al6m de temas referentes a poli'tica 
nacional de software e tamb^m referente fe preocupa- 
goes de todos com a regulamentaggo da profissSo e o 
sindicalismo na drea; finatizando esta s6rie de debates na 
feira, estard presente a preocupagao com a anSlise da 
presenga do Estado na economia da ^rea de inform^tica. 

Al^m destes debates haver^ tamb^m um circo monta- 
do especiaimente para as criangas, onde estas poderao 
tomar contato com os micros que estarao no picadeiro 
do circo, atrav^ de orientadoras e pedagogos especiai- 
mente treinados para "brincar" com as criangas e o com- 
putador. E um fobo, trazido especiaimente para a feira, 
jogard uma partida de xadrez com o vencedor de um jo- 
go realizado numa praga publica com um tablado e com 
pegas gigantes. 
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Outra preacupapao dos organ izadores desta feira, foi 
com a melhor forma de locomogao do publico dentro 
do Anhembi. Para isto, os stands foram distribui'dos por 
area, mostrando os produtos nacionais e estrange! ros la- 
do a lado. Pars a orientapao do publico, foram pintadas, 
no chao, setas coloridas indicando o ctrcuito a ser per- 
corrido, 

O Congresso 

O XVI Congresso Nacional de Inform^tica tem uma 
tradi(?cio que remonta dos tempos difi'ceis de ano de 
1967 que, na 6poca, foi chamado de Congresso Nacional 
de Processamento de Dados e que reuniu pouco mais de 
500 pessoas. 

Hoje em dia o Congresso tem o objetivo de colocar as 
t^cnicas automatizadas nao so aos tecnicos, como tam- 
b6m ao grande publico. 

Os seminaries e debates do Congresso, contarao com 
, a presenga de expositores de renome internacional como 
por exempio Ralph Gomory faiando sobre a Evolupao 
da Tecnologia dos Computadores; John Maccarthy abor- 
dando o tema "Inteligencia Artificial" e Y.F. Lum faian- 
do sobre Videotexto, alem de outros. Os temas versarao 
sobre diversos assuntos, tentando sempre atingir a todos 
OS interesses. No dia 17, havera a abertura, com segao 
solene e o congresso se estenderci at^ o dia 23 as 17 
horas. 

Congresso estara distribuido no Anhembi, desde o 



plendrio, ampliando-se aos audit6rios E, G, J, na sala A, 
8, H e L; iniciando-se as palestras, debates e cursos t^- 
nicos as 8 horas e encerrando-se as 1 7 horas. 

intuito real dos organizadores de tamanho evento 6 
transmitir a todos os frequentadores, a imagem de que a 
convivencia entre o homem e o computador pode ser pa- 
ci'fica e recheada de trocas de informapoes uteis ao de- 
senvolvimento da humanidade. Tanto i que, na feira, ha- 
verS uma exposigao de "artes pl^sticas", reunindo pai- 
n6is, pinturas, gr^ficos e desenhos de v^rios autores fei- 
tos por computadores em todo o pais. 

DJante de tudo isto onde estar^ a nossa revista? 

Nosso stand sera especial; numa esquina localizada na 
rua M, numero 7 no formato de uma banca de jornal, 
com computadores TK funcionando durante todos os 
sete diasda feira. 

J I I 



MICROCHAFT HENGESi&TEMS 



micromega 
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Linguagem de maquina. 




Contando com pessoal de atendimento 
trelnado nas proprias fabricas, o Depto. de 
Microcomputador da Allcolor esta a sua 
dlsposicao para falar-lhe fluentemente tudo 
sobre CPSOO, CP300, CP500, TK8g, TK83 ou 
TK85. Falar-llie das caracteristicas 
especificas de cada hardware, dos 
equlpamentos e configuraqdes apropriados 
para cada use, dos varios softs aplicativos ou 
jogos e, principalmente, falar-lhe das 
facilldades que a Allcolor, atraves do 
financiamento dlreto ou consorcio, oferece 
para voce adquirir o seu microcomputador. 
Fale com o pessoal da AJlcolor, ele vai falar a 
sua linguagem. 



Jacarei; Pea. Conde de Fronttn, 76 - S.J, Campos: R. XV 
de Novembro, 9 e Calcadao, 383 - Taubate: Bispo 
Rodovalho, 30 e Calcadao. 64. 
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PROTEQAO JURIDICA ...,.,, 

DO PROGRAMA DE UM COMPUTADOR '^ I O^ 



}? parte 



A questao da protegibilidade, ou nao, do programa de compu- 
tador eletrftnico, atrav6s de normas juri'dicas adaptadas ou pr6- 
prias, nao 6 muito novo. Em 1964, o Copyright Office, que ^ o 
6rgaQ da Biblioteca do Congresso Norte-americana encarregado 
do desempenho de todas as fun^oes e obrigapoes adminrstrativas 
deoorrentes da legisiacao sobre o direito auwa! estadunidense (o 
chamado copyright], ja havia decidido efetuar o registro - como 
sendo obra susceti'vel daquela proteijao — dos programasde com- 
putador eletr6nico, desde que (a) fossem o resultado de uma 
autoria pessoal (contendo, portanto, origtnalidade), (b) ja tives- 
sem sido publicados (isto i, postos a disposi(;3o do publico) e (c) 
lossem entregues (aquefe orglo) c6pias elsboradas de maneira 
humanente legiVeis. Em 1967, o Centro de Estudos Internacionais 
da Propriedade Industrial, que 6 orgao da Faculdade de Direito e 
de CiSncias Polfticas e Econ6micas de Estrasburgo, na Franga, 
realizou um colopuio de engenheiros de processamento de dados, 
juristas e outros cientistas, sob o tema "A PROTECAO DOS RE- 
SULTADOS DA PESQUISA EM FACE DA EVOLUCAO DAS 
Cl^NCIAS E DAS T^CNICAS",quando foram examinadasques- 
toes atinentes a Microbiologia, a Qui'mica Macrocelutar, a Infor- 
m^tica e, em particular, aos Programas de Computadores Eletra- 
nicos. Sb bem que, naquela altura, o Parlamento Frances jd dis- 
cutia projeto de lei (promulgada em Janeiro de 19681 que ex- 
cluiu da prote^ao pela Propriedade Industrial os programas, ne- 
gando-lhes os direitos de patentes de invengao e os de privil^ios 
correspond en tes, houve grande debate quanto a patenteabilidade 
dos programas, defendida por maioria. A tendfencia naquele colo- 
quio toi no sentido de que os programas poderiam ser protegidos 
pelo direito decorrente da concessao de patentes de invencao, Po- 
r^m tamb^m houve juristas que defenderam a tese de que o pro- 
grama poderia e deveria ser protegido pelas regras do Direito 
Autoral, tendo em vista tratar-se de verdadeira obra do espi'rito 
humano, de natureza evidentemente intelectual, sujeita a reprodu- 
(pao e execu^o, tal como se da com os roteiros cinematogr^f icos, 
ou com OS projetos deengenharia (posit^ao at^ hoje defendida pe- 
la maioria dos doutrinadores italianos, em razaode peculiaridade 
do seu direito autoral interno, como se ver^ mais adiantel. Afem 
do exempio norte-americano, tambSm as Filipinas introduziram, 
expressamenie, no seu Decreto de 14 de novembro de 1972 (re- 
Istivo a propriedade intelectual!, os programas de computadores, 
como obras ^s quais ele se aplica, segundo dispSe o seu art 2, na 
ali'nea "rj". 

No Brasit, JOS^ CARLOS TINOCO SCARES parece ter sido 
o pioneiro na publtcapao de estudo a respeito do assunto, quando 
divulgou um artigo intitulado PROTECAO DOS PROGRAMAS 
DE COMPUTADORES, atrav^s da Revista de Direito Mercantil, 
volume 17, de 1975 nas paginas 39/44. All, TINOCO SCARES 
defendeu a inaplicabilidade do Direito Autoral aos programas, 
assirn como das regras atuais da Propriedade Industrial [patente 
de invenipao, ou privil^gio de modelo industrial), nada obstante 
tivesse proposto a introdupao, em nosso sistema de direito positi 
vo, de um priviMgio dos programas de computadores. por um 
tempo determinado e nao excedendo o maxima de cinco anos 
(ob, cit, pdg. 44), 

Poster! ormente, ROBERTO FRANK, CLAUDIO DE SOUZA 
AMARAL e HENRIQUE GANDELMAN trataram do assunto em 
artigos publicados no peri6dico TE LECOM (de 09.1 1 .79 e 06.08 
79, OS dois primetros, respect ivamente) e no JORNAL DO 
BRASIL de 24.08.80, o ultimo, todos defendendo, no entanto, 
a inclusao dos programas entre as obras protegidas pelo Direito 
Autoral, embora com aiguma temperan<pa. 

Em 1979, a CAPRE - Comissao de Coordenacao das Ativida- 
des de Processamento Eletr6nico -, extinta com a criapao da 
SECRETARIA ESPECIAL DE INFORMATICA - SE! -, que a 
substituiu, organizou um Grupo de Trabalho sobre Mecanis- 
mos de Controle a Importapao de Software, em cujo relatorio 



Eduardo J. Vteira Manso / Advogado 

propSs. entre outras sugestoes, que, "no Brasil, se tomem as pri- 
meiras medidas para o estabelecimento de uma estrutura legal e 
iuri'dica adequada, sem optar pela legisiaipao de direito autoral ou 
peio direito de patente, que procure preserver e estimular as em- 
presas nacionais do ramo e aumentar em quantidade e qualidade 
a oferta de empregos para os profissionais brasileiros' , 

Essa parece ser, mesmo, a tend§ncia geral.a despeitodos Esta- 
dos Unidos da America, cuja Lei nO 96-51 7, de 1 2.1 2.80, alterou 
a legislapao relative aos direitos autorais, para deixar inequi'voca 
sua protepao, como tal, aos programas de computadores eletr6ni- 
cos, agora expressamente tratados como obras inteiectuais gera- 
doras do copyright, ratificsndo assim, como ^ de costume por is, 
a posigao antes assumida pelo Copyright Office. 

A OMPI - Organizacao Mundial da Propriedade Intelectual -, 
entidade intergovernamentai e 6rgao especializado da UNESCO, 
a qual tern sede em Genebra, e cujo principal papel i promover a 
prote^ao da propriedade intelectual (entendida esta como os di- 
reitos autorais e a propriedade industrial] por toda a Terra, atem 
de administrar algumas das mais importantes convenqoes multi- 
laterals relativas ao Direito Intelectual — , depoisde ouvir especta- 
listas de di versos pai'ses a ela filiados, criou, tamb^m, um Grupo 
Consultor de peritos governamentais, a f im de avaliar a necessida- 
de da prote(;ao dos programas e a natureza de tal proteQao. Entre 
OLttros moiivos justificadores da oportunidade de uma protepao 
jurfdica, segundo o representante da Alemanha Octdental, foi res- 
saltado o fato de que, se nao houver nenhuma protetpao, os inte- 
ressados em obte-la haveriam de adotar medidas de segredo (co- 
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mo. alias, algumas empresas produtoras de equipamentos fa?em), 
afirmando que isso nao 4 desej^vel, do ponto de vista do progres- 
so dos conhscimentos teen /cos. 

Depois de diversos anos de reunioes. estudos e debaies, a OMP! 
apfovou e publicou urn conjunto de ragras que ofereceu aos 
governos dos pai'ses filiados, pBra servirem de guias, modelos ou 
sugestoes para a elaboragao de suas proprias legislacSes internas 
A lais regras <oi dado o ti'tufo oficiaf de "Dtsposi(;oes Tipos" e 
Bias consagram a introdugao, no mundo juri'dico-legal, de um no- 
vo e especial direito para a protepao dos programas de compu- 
tadores eletrSnicos, que, tamb^m. participa da classificacao dos 
Direhos Inteiectuais (ou da Propriedade IntelectusI, como tam- 
Wm sao chamados aqueles direltosl. 

Al^m dissQ. a OMPI lambem concluiu pela opoftunidade de 
proper aos governos dos pafses a ela filiados a aprovagao de um 
tratado internacional sobre a protegao do LOGICIARIO (palavra 
que e por mim proposta para substituir software, seguindo o 
exempio dos tranceses que a trocaram por togiciel) 

De um modo geral, as disposipoes tipos tern a seguinte estru- 
tura (que se transcreve da revista Le Droit d'Auteur, de 1978, 
pag 13) artigo primeiro define o objeto da protecao ("progra- 
ma de computador", "descripao do programs", "documentafSo 
auxiliar" e "logiciano ", este ultimo consistindo em um ou varies 
dos ob/etos mencionados anteriormente} , assim como define o 
termo "proprietario ". O artigo 2 determina a quern pertencem os 
direitos reSativos ao logiciano. particularmente guando este foi 
criado por um empregado; alem disso, regulamenta a transferencia 
e a reversao dos direitos relativos ao togiciario. artigo 3 define 
a exigena'a de originalidade do logiciano. O artigo 4 precisa que 
as nogoes (par oposifio a forma em que el as sao expresses} ficam 
fora dos I i mites da protegao fixada pela lei. O artigo 5 errumera os 
atos cobertos pelos direitos do proprietario, cuja lista pode divi- 
dirse em duas partes: os pantos I e II tratam da dii/ulgacao nao 
autoriiada do logiciano e do acesso nao autorizado ao logici^rio, 
enquanto os pantos tit e IV sao concernentes aos atos de copia, 
de utiliz3(:ao, de venda, etc, nao autorizados, do logiciario. O ar- 
tigo 6 define a vio/apao e previ dais casas que nao sao considera 
dos como violaqoes (criagSo independente do logiciario e a situa- 
pao especial dos navios, dos engenhos espaciais ou engenfios de lo- 
camopao airea ou terrestre estrangeiras que penetram o territdrio 
de um pais). O artigo 7 define a dura^o das direitos conferidos 
pela lei (20 anos, contados da data da criacao do logiciario). O ar- 
tigo 8 define as medidas judiciais disponiveis em caso de infragSa. 
O^artigo 9 precisa que uma protecao fundada em outras disposi- 
foes (legais) nao fica excluida, 

Em junho do corrente ano, a mesma OIVIPI preparou um texto 
de um "Esbogo de Tratado para a Proiepao do Logiciario" iem in- 
gles' Draft Treaty for the Protection os Comparer Software), cuja 
estruiura jurfdica e basicamente a mesma daquela que i6m as Dis 
posipoes Tipos, nas quais foram, evidentemente, calcados seusar- 
tigos. Assim, os seis primeiros artigos do "Esbopo de Tratado" re- 
ferem-se ao direito reiatiwo a protepao do logiciario: definicao, 
principio da protecao (ou seja, prescreve a que a protecao a ser 
conferida em oada pais signitario do tratado devera ser no mini- 
mo igual a prote<pao prevista no pr6prio tratado, o que, todavia, 
nao impedira que a prote<;ao nacional seia ainda mais ampla que a 
do tratado); tratamento nacional (isto i, o tratado prescreve que 
aos estrangeiros, oriundos de pai'ses filiados a ele, recebam o mes- 
mo tratamento que 6 dado aos nacionais, desde que tenham tarn- 
bSm cumprido as formaiidades eventualmente exigidas, seja no 
scu pais de origem, seia no pais em que estiver pleiteando a prote- 
cjaol, OS atos contra os quais se aplica a protetpao: a duraijao da 
protepao (prevista em 20 anos, no tratado, tal como rtas Disposi- 
<p6es Tipos) e os casos especiais dos vei'culos que ingressem no ler- 
ritorio nacional, portando programas de seus pai'ses de origeni 
Os demais artigos do projeto referem-se a assuntos administrati- 
vos, como as hipoteses e modos de revisao do tratado, as maneiras 
de ser parte dele e quando entra em viggncia, assim como sua de- 
niincia, etc. 

Simultaneamente, a OMPI, atrav^s do seu Comitfi de Peritos 
Governamentais, prepara-se para examinar, tamb^m, a questao da 
protegibilidade dos "circuitos integrados" (tamb^m conhecidos 
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fi urn guia compreenstvo, projetado para ensinar o 
iniclante a programar um microcomputador, com 
teoria e exercicios resolvidos. Ele tamb6m traz DICAS 
para transformar oulros programas para os 
computadores de I6gica SINCLAIR: TK82, TK83, TK85, 
CP200 e outros. 

Este curso foi testado na MICRO-KIT EDUCACIONAL 
e sSo 80 pdginas de esclarecimento aos que iniciam 
ou que j^ sao iniciados: adultos e criangas. 
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como chips), que sao alvo de um desenvolvimemo significativo, 
nos ultimos anos, principalmente como incremento da fabricagao 
de inumeros produtos para uso dtdrio, principalmente para co- 
mandar certos processes eletrfinicos, como os das modernas m^- 
quinas de iavar, dos jogos, de brinquedos, etc. A prote<;30 dos cir- 
cuitos integrados, no entanto, ao menos segundo as regras previs- 
tas para a protepao dos programas de computadores, parece bas- 
tante incerto e algo remota. Por isso, a OMPI preferiu, a conselho 
dos peritos que integram seu Comit§ Intergovernamental.antesde 
proper qualquer regulamentapao protetiva, levantar todas as ques- 
toes que podem ser suscitadas a respeito, para equaciond-las e ve- 
rlficar se, quando e qual protepao poderd ser sugerida e proposta. 

No Brasii, portanto, ainda naoexiste nenhuma norma legal ex- 
pressamente destinada a proteger os programas de computadores 
eletrSnicos. A Secretaria Especial de InformStica - SEI - estd 
diligent© e cuidadosamente elaborando um esbo?o de anteprojeto 
de lei, visando a estabelecer a protepao jun'dica dos programas de 
computadores, o qual esta estruturado mais ou menos no molde 
das Disposipoes Tipos da OMPI (a qual o Brasii 6 filiado). Com 
muita cautela e seguranpa, a SEI est^ submetendo o seu estudo h 
anSlise e ao exame dos especialistas brasileiros, pedindo-lhes su- 
gestoes, a fim de oterecer ao Governo um anteprojeto atual, mo- 
derno e eficaz, cujas normas possam conferir a melhor protepao 
jun'dica aos programas, aos seus autores e, principalmente, pro- 
curando prevenir os interesses nacionais a respeito, que hao de es- 
tar acima dos interesses privados, tendo-se em conta que o Mundo 
serd de quem deliver o maior numero possi'vel de informaipoes e as 
puder processar eficientemente, 

Acornpanhando de perto as sugestoes formuladas pe)o Grupo 
de Estudos organizado peia CAPRE, assim como atendendo, no 



que Ihe foi possi'vel, as recomendacoes apresentadas peia "Comis- 
sao Especial n9 003fSoftware e Servi?os" (CE-003), que a prbpria 
SEI constitui, nos termos da Portaria n9 003, de 20.03.80. pro- 
cura-se instituir um novo direito, especial para atender as neces- 
sidades tamb^m especiais do seu complexo objeto. Esse direito, 
no entanto, por sua natureza e em razao principalmente da natu- 
reza de seu objeto, tamb^m pertencea classificapao de Direito In- 
telectual, situando-se, portanto, ao lado do Direito Autoral e do 
Direito de Propriedade Industrial, dos quais ser^ o irmao mais no- 
vo, posto que. sem nenhuma dijvida, o programa de computador, 
bem como todo o logiciSrio, 6 uma obra intelectual, evidentemen- 
te. Assim, nao se estarao aplicando, integral mente, as regras do 
Direito Autoral, como haveria de acontecer se se admitisse, def ini- 
tivamente, que os programas fossem obras objeto de tais regras, as 
quais, em conjunto, sao perniciosas para o interesse nacional eat^ 
mesmo para a pr6pria protegao pretendida. E nao seaplicaraoas 
regras do Direito da Propriedade Industrial, que, ali^s, estao prati- 
camente vedadas, pelo que dispoe o Codigo da Propriedade Indus- 
trial, Cujo artigo 99, entre as "invenipoes nao prfvilegilveis", in- 
clui, no inciso h, "os sistemas e programa^oes, os pianos ou os es- 
quemas de escriturapao comercial, de cdlculos, definanciamento, 
de cr^dito, de sorteios, de especulatpao ou de propaganda" 

Contudo, enquanto "seu" lobo nSo verrr, isto 6, na falta de 
normas juri'dicas especialmente aplicdveis aos programas, como 
poderao, os interessados em obter alguma protei;ao, defender es- 
ses mesmos interesses, principalmente quando ocorrerem atos de 
terceiros que Ihes f iram o que a sua conscifincia Ihes aponta como 
"seus direitos". que fazer contra a pirataria, que campeia 
solta? 

(Continut no pr6xima n6rntra) 
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Rua Santa Efigdncia. 378/330 - SP 
TelS.: 221-2210 e 222-7322 



InstalagSo de rides e centrais teletdnicas. Complete esioqtie de 
materials pnelelones P8X e PABX. Rides de inter/ones e 
manuten^ao de centrais lelefonicas. 
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PEQUENOS 




REVISTAS IMPORTADAS - FARAH'S BOOK 
SHOP - Rua Haddock Lobo. 1503 - Fone: 881-3410. 

Vendo Timex/Sinclair 1000, ZX SPECTRUM, produ- 
tos MEMOTECH (HRG, 64K, Interface para impressora, 
etc.), programas e outros perif^ricos. Tratar com 
TAN [OS - Tel.: 270-3368. 

Servipo de Datilografia — IBM. Teses, apostilas e ma- 
nuais t^cnicos. Tefefone: 258-8486 ~ Americo, SP. 

GRANDE CIRCUITO - Boletim para usuSrios do 
TK. Duas mil copiasem Off -set distribui'dos para todo o 
BrasJI. Anuncios gratis. InformaQoes: CP: 28, CEP: 
27200 - Pirai. RJ. 

SOFTSYSTEM - Software importado para TK 82/85, 
NEZ, CP 200, ZX 81, etc. Linguagem de m^quina in^di- 
tas. Solicite catalogo para Caixa Postal 02, Poa, SP. CEP: 
08550. 

Troco ou vendo PROGRAMAS {NACIONAIS E IM- 
PORTADOS) para os micros: CP 200, TK82-C e ZX 81. 
Possuo Simulador de Voo, Turbo, Galaxy e muitos 
outros jogos e aplicativos. Tratar com Ecuardo Medeiros 

- R. Eliseu Guilherme, 1076 - Ribeirao Preto - SP - 
CEP: 14100— Atendo tamb6m por reembolso. 

Vendo ou troco PROGRAMAS DE JOGOS para 
TK82-C e TK85. Tratar com Edson — Rua Guariba, 54 

- Sao Paulo. Tel. : 9 18-0998 (c/ Ruth). 

RADIO MICRO - primeiro grupo de radio amado- 

res digitals do Brasit convida todos os radioamsdores a 
confiecerem os projetos de hard e soft que estamos de- 
senvolvendo. Aos interessados entrarem em contato com 
PY-2-EMI Renato Strauss — R. Cardoso de Almeida, 

654/32 - 05013 - Sao Paulo. SP . 

Colocamos VIDEO-REVERSO em televisores 
TX-Philips, fazemos adaptapoes de TV's pars monitor de 
vfdeo e vendemos kits de vfdeo-reverso. Luiz Wellington 

- Tel.: 224-2776 - Fortateza/CE. 



ANUNCIOS 



Vendo programas nacionais e Importados, 2K e 16K, 
BASIC e ASSEMBLER para micros TK82-C e simitares 
{Aceito trocas} - Carlos A. Sctaretti — Caixa Postal 
5567 - Sao Paulo, SP - CEP 01051 - Tel. : 5228586. 

Conversor do NEZ8000 para SLOW: Em Sao Paulo, 
W/LSON DE ASSIS faz a inclusao desta fungao no 
NE28000 por Cr$ 20.000,00 {mais as despesas de em- 
balagem e correio) e dci a garantia de 6 meses, Se o seu 
enderego for proximo ao dele, ele entregard em casa. 
seu telefone ^: (Oil) 203-7967 e o enderego: Rua 
Fabricio Correia, 145, Tucuruvi, 0231 1 - Sao Paulo ~ 
SP 

Vendo esquema complete do microcomputador 
NEZ8000 (com SLOW e expansao de memdria) - 3 c6- 
pias heliograficas. Cheque nominal de Cr$ 6,000,00 pa- 
ra JAN MARTIN LUND, Rua Frederico Ozana, 16/21 - 
11100- Santos - SP. 

Vendo ou troco programas de jogos para TK82-C e 
TK85. Tratar com Edson, R. Guariba, 54 - Sao Paulo - 
Tel. : 9 18-0998 (c/ Ruth). 

Curso de Linguagem de mdquJna para TK82 e TK85 
{ASSEMBLY Z80). Aos s^bados das 9:00 as 13:00 fis. 

SSo Paulo - Fone: 813-4555 <M6rcia) i tarde. 

Troca de programas para TK — Carlos Horicio C. 
Fontenelle - R. Atfeu Aboim, 770 - Aldeota - Porta- 
leza -CE- CEP: 60000. 

Sou possuidor de muitos programas para o TK82. Os 
interessados em trocl-los escrevam para Marco Aurilio 
Dias de Oliveira — Av. A fonso Pena, 1557 — Bloco B — 
apto. 214- Campo Grande/MS - CEP: 79 100. 

ESPlAO - Jogo de Aventura para TK e CP-200. Um 
desafio a sua Memoria e Habilidade. 16K com SLOW. 
CrS 5.000,00. Pedidos pelo reembolso para Cx. Postal: 
28 - 27200 - Pirai - RJ. 
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Caso o seu micro nao leia bem f itas 
programadas, compre um CMS/ZX 



para os computadores de Ibgica SINCLAIR; 

TK82, TKea, TK85, , 
iCP2C»eoutros. 




sinal emitido pelo 
gravador 



c^f*^ 



sinal moduiado pelo 
CMS/ZX 



POLIMICRO 



Avenida Andrade Neves, 1.254 -Tel.: (0192) 8-0822 - CEP13.100 - CAMPINAS-SP 



□ DESEJO CONHECER AS REVENDAS DE MINHA CIDADE 

□ EM ANEXO ESTOU ENVIANDO CHEQUE NOMINAL NO VALOR 

DE Cr$ PARA ADQUIRIR UNIDADES DO CMS/ZX 



X 



NOME: 



CIDADE: 



ENDEREgO: 



CEP: 



ESTADO: 






p 



mfcromega 



0.1 23456789 



MICROMEGA Public»90«i a Mal«ri«l Oiditieo Ltda. 

Cawa Postal 60081 CEP 05096 Sio Paulo SP 
CGC,;52.27&.724/0001-41 - Inscr, Est.: 110.862.362 



n? assinaiura 


E 





Desejo assinar a Revlsta MICROHOBBY (12 edi^des) 



NOME 



ENOEREQO 



CEP 


CIDADE 





























































EST. 



_L_J em cheque nominal 



Estou anexando a quantia de Crt 

jMra MICROMEGA P.M.D. Ltda., referentea wenda de uma assinatura. Q vale postal 

em cheque nominal n." Banco 

nma / / 



TELEFONE 
CGC ou CPF 

inscriqAo 



ASSINATURA 



ESTE CARTAO NAO PODE SER 
UTILIZADO POR TERCEIROS PARA 

COLETA DE ASSINATURAS 

VUido iomant* h poitado diratamant* 

palo minsnte. 
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COMO COLABORAR 
COM MICROHOBBY 



A Revista MiCROHOBBY foi criada para servir de in- 
tercambio entre os leitores que participam do m^gico 
mundo da computa^o. 

A caracteri'stica realmente inovadora do computador 
pessoal, estd em transformar cada consumidor num cria- 
dor. Aproveite sua criatividade e envie suas coiaborapoes 
recebendo remunera(pao a ti'tulo de DIREITO AUTO- 
RAL. 

A maneira ideal de nos enviar o material a ser publica- 
do obedece lis secjuintes normas: 

1. Nunca esque(;a de colocar o nome complete, telefone, 
enderego e numero de sua assinatura em todo material 
enviada a n6s, sejam listagens de impressora, fitas, enve- 
lope, carta ou qualquer outro material. 

2. Envie a listagem de programa datiiografada ou, me- 
Ihor ainda, tirada na impressora do computador. 

3. Coloque sempre uma linha REM com o nome do 
autor e o ti'tulo do programa, 

4. Envie uma fita com o programa gravado algumas ve- 
zes (se possi'vel em gravadores dtferentesh 

5. Na fita, gravar com microfone (em viva voz), algumas 




instrucoes uteis: 

nome complete e enderepo do remetente. 

6. Quando o programa for adaptado e/ou traduzido de 
outra revista, citar a fonte (autor original, data de publi- 
cagao, nome da revista e todos os detalhes que houver 
referente a publicagaio). 

7. Anexar ao material, uma carta autorizando a publica- 
gao por parte da revista e assumindo a responsabilidade 
peia autoria do material e/ou adaptacpoes. Nesta carta, 
para agilizar a remuneragiao, podem constar os dados da 
conta corrente onde daremos o dep6sito correspondente 
aos direitos autorais. 

8. material nao utiMzado nao seri devolvido, ficando 
a crit^rio da redagao a decisao final sobre sua publi- 
capao. 

9. O material deve ser enviado para: 

MICROMEGA PUBLICAQOES E MATE- 
R1ALDIDATIC0 

SEQAO PROGRAMAS DO LEITOR 

RUA BAHIA, 1049 

01244 -SAO PAULO, SP. o 





COMO 
FAZER 
SUA 
ASSINATURA 



A nossa revista nSo ^ distribufda nas bancas. Para 
obter seu exemplar mensal, contendo muitos programas 
para o seu TK, at^m de muitas dicas e premios interes- 
santfssimos, voce deve fazer uma assinatura de Micro- 
Hobby num prepo anual de CrS 11 .800,00. 

Para tan to, voce deverd preen cher corretamente o 
cupom anexo, colocd-lo num envelope, junto a urn che- 
que nominal ou vale postal a favor de MICROMEGA 
PUBLICAQOES E MATERIAL DIDATICO LTDA., no 
vaiordeCrS 1 1.800,00 ( at6 30/10). 



Qualquer raclnms^ao d«ve ssr fsita por carts snsKando, is poutvat, 
uma atiquata d« anderafamanio, para que o atendimenlo »}■ a mail 
ftp Id o potilval. 

envelope dever^ ser selado e enderepado a; 



MICROMEGA P. M.D. LTDA. 
DEPTO. DE ASSINATURAS 

Caixa Postal 60081 - CEP 05096 
Sao Paulo - SP 



No verso do cheque escreva: 



"Destina-se ao pagamento de uma assinatura 
(12 numeros) da revista MICROHOBBY". 



Quando este cheque for devolvido ao seu Banco com 
nosso endosso, servir^ de comprovante provis6rio at^ 
que nosso recibo seja enviado pelo correio. 

O 
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«1ft^ 






Prt^O 



s,*ldo.t*30' 



\0(a3 




TIG-LOADER possibifita: 

• a tocalizagao do otimo volume do gravador, facilitando g 
operagio LOAD. 

• DUPLICAR Quatquer programa, mesmo aquetes 
"fechados". 

• carregar (LOAD) e DUPLICAR simultaneamente. 

• gravar (SAVE) em 2 gravadores ao mesmo tempo. 

• manitoraras operagoes LOAD, SAVE ou DUPLICAQAO 
atrav^s de fone. 

• fittrar as interferencias et^tricas de baixa frequencia, que 
sao a causa da maioria dos pmblemas de LOAD/SAVE. 



I „ 1 1" .. .' 



,3„ TIGRE 

^ ^ COM. DE EQUIP. P/COMPUTADORESLTDA. 

^^'S^T fl ja Correia Galvao, 224 - CEP 01547 - Sao Paulo 



APLICATIVOS PARA TK 

I IG'SCnCCNl vinte B sete rotinas de video, para Incrementar seus 
programas! InversSo de «ideo, motdura, arqulvo de imagBns, rotapio, scroti em 
qualro dire^fles, etc... efeitos visuals inerlveis! Em hnguagem de mSqulna, 
ocupa 1,3 Kb, (icandoprotegidonoRAMTOP, depois6s<5utiliz4-loondequizer! 
PI 16K. Com manual explicativo. 

/lva"C«C/AffrCcolCM}ue. em seus prMramasem BASIC, avBlocidadedeCb- 
digo de maquina. Rode-os na (orma COMPILAOA! Simples de usar, 4 a6 
carregar ou digitar o seu programa em BASIC e depois usar o TIG-COMP. 
Pronto! Voc6 ter4 o seu programa em Hnguagem de m4qulna em instantas. 
P/16K. Com manual explicativo. 

flU-i>PCCDr uma combinagao de soft e hardware, permitpndo uma 
transferSncIa de dados micro/cassete de 4.200 bauds, Voc6 poderi carregar ou 
gravar 16Kb em 30 segundos! Acrescenta ao micro a fun^ao VERIFY. Fadlimo 
de Dperar, compae-se de cassete, interface e manual explicativo P/16 e 4aK. 



Envie seu pedido + cheque cruzado. Atendemos somente por cafta. 
Prazo de entrega: 15 dias. Solicite rela<;So de programas em fita. 

Despesas postais incluidas nos preQos. 



SiM. aeseioffceber o TIG-LOADER 



, pera tanto, estou anexando o cheque «."_ 



-rlevalorikCrS. 



NOMf: 


ENDERECO: 1 


CSP: 


CIDADE: 


ESTAnO: 


PROFISS&O: 


ASSINATURA: 


ICAOE: 


MARCA DO MICROCOMPUTADOR: 




^ SOFTWARE £ 
I GRATIS 7 

< na compra > 

< de um micro '' 



dmuMmiir^ 



U7?^i47VlM 




^ ^ 



mjo9^ 



1^4^ 







***MMM*******M 




sLSTKINICA 



m 



Rua Santa Ifigenia, 568 
Tel. (011)2219055 
Telex (Oil) 34901 - POEC 



Rua General Jardim 482 - 4Qandar 
Tel. (011)221-9055 
Telex (Oil) 34901 POEC 



